04 ?r?IGAAOCO 
OPTUED O 
OS ines 
ICO SE 
oe.000 


PROGRAMACION DEL INTERFACE 1 
Y MICRODRIVE 


Programación 
del Interface 71 
y Microdrive 


Agustín Núñez Castain 


ANAYA MULTIMEDIA 


MICROINFORMATICA 


Diseño de colección: Antonio Lax 
Diseño de cubierta: Narcís Fernández 


Reservados todos los derechos. Ni la 
totalidad ni parte de este libro puede 
reproducirse o transmitirse por ningún 
procedimiento electrónico o mecánico, 
incluyendo fotocopia, grabación magné- 
tica o cualquier almacenamiento de in- 
formación y sistema de recuperación, sin 
permiso escrito de Ediciones Anaya 
Multimedia, S. A. 


Primera edición 1985 por 
ANAYA MULTIMEDIA, S. A. 


( EDICIONES ANAYA MULTIMEDIA, S. A., 1985 
Villafranca, 22. 28028 Madrid 
Depósito legal: M. 29.762-1985 
ISBN: 84-7614-038-X 
Printed in Spain 
Imprime: Anzos, S. A. - Fuenlabrada (Madrid) 


Indice 


PEOÍaCiO orto a a a a A aaa 7 
1. Introducción al BASIC extendido .................oooooooooccccccooo.. 11 
2. Ampliación del BASIC con el Interface 1 ..............o.ooooo.o..ooo.... 23 
3. Subrutinas importantes de la ROM2 ............ooccococccoccco 31 
de ¡El mMiCrodrive:: 5 oa si a o aid 41 
5. “Programa MicroBASIC ¿000000 iia cs lA d9 
6; ¡Manual del MicroBASIC: ica ars oa 79 


Prefacio 


La extensión del Spectrum con el ZX Interface 1 y el Microdrive supone un 
cambio drástico en la utilización de este microordenador. 


MICRODRIVE 


INTERFACE 1 


ZX SPECTRUM 


Pasamos de un mero micro de juego y aprendizaje a poseer un equipo con el 
que se pueden desarrollar aplicaciones serias, dentro del ámbito personal, todo 
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ello sin perder las cualidades anteriores. La única barrera que delimita estas dos 
aplicaciones la constituye el nivel de conocimiento que podamos poseer de las 
nuevas posibilidades que aporta esta ampliación. 

Aunque parezca absurdo, las mejoras prestaciones de un microordenador 
suelen ser desconocidas para la gran mayoría de sus usuarios, que normalmente 
necesitan un gran número de horas de dedicación para llegar a descubrirlas. 

Sería muy fácil culpar de ello a la escasez de información en los manuales 
básicos, pero, aunque esto ocurra con bastante frecuencia, no es el caso del 
popular Spectrum. Más bien es el potencial enorme que éste ofrece el que dificulta 
el trabajo de extender las prestaciones iniciales del sistema. 

Este libro pretende, por un lado, mostrar la manera en la que se puede 
ampliar el número de comandos del intérprete BASIC, “parcheándolo” con aque- 
llas funciones que tantas veces echamos de menos en nuestro micro y tantas veces 
necesitamos utilizar. Una vez aprendido el método, cualquier lector será capaz, 
con un pequeño esfuerzo, de diseñar sus nuevas extensiones, personalizando de 
esta forma su BASIC. 

Al final del libro se adjunta un resumen de los nuevos comandos que pretende 
hacer las veces de manual de consulta rápida a la hora de ajustar la sintaxis de 
nuestros programas. 

Quisiera agradecer aquí la ayuda recibida de HISPANOMICRO, S. A,, sin la 
cual esta obra no hubiese sido posible, y a mi esposa, por su colaboración y 
apoyo en su redacción. 


AGUSTÍN NÚÑEZ CASTAIN 


Madrid, 28 de septiembre de 1984, 


Introducción 
al BASIC 
extendido 


Con la conexión del Interface 1 al Spectrum no sólo se aumenta el número 
de periféricos que pueden conectarse (RS-232, Microdrives, Red de comunicacio- 
nes), sino que además se amplía el lenguaje BASIC con una serie de comandos. 
Algunos de ellos son nuevos (CAT, FORMAT, ERASE...); otros, en cambio, son 
simples modificaciones de los ya existentes (LOADx*, VERIFY +*...), permitiendo 
ahora el acceso a los nuevos periféricos. 

El BASIC del Spectrum posee una avanzada filosofía de comunicaciones, 
llamada de “Canales o Corrientes”, que está siendo muy utilizada en sistemas 
operativos recientes (Unix, 0S9..) con gran aceptación. 

Dada la gran importancia que tiene este concepto vamos a tratar de definirlo, 
así como de especificar su estructura para el caso del Spectrum. 


1.1 
Canal lógico 


Llamaremos canal lógico al número o etiqueta que nos sirve para nombrar un 
periférico cualquiera (teclado, pantalla, impresora...). En el BASIC del Spectrum 
podemos utilizar hasta 16 canales diferentes numerados desde el O hasta el 15. 

Este simple concepto proporciona una gran versatilidad en la utilización de los 
programas, agilizando su modificación cuando sólo se necesita cambiar de perifé- 
ricos. 


1 


Podemos dividir cualquier programa en tres grandes secciones: 


1 
Entrada y salida “ 

Siempre existe una parte del programa dedicada a la lectura y escritura de los 
datos desde un periférico cualquiera hacia una zona de la memoria principal 
(RAM), o viceversa. Los periféricos permitidos en el Spectrum son: 

1. Teclado. 

2. Pantalla (TV). 

3. Impresora ZX. 

4. RS-232 (conectada a impresora o modem). 

5. Fichero de un Microdrive. 

6. Otro Spectrum o QL (red local/network). 

7. Area de trabajo RAM (uso exclusivo del sistema). 

8. Especiales (cassette, joystick...). 

La definición de canal obliga a que todas las entradas y salidas deban ser 
etiquetadas con un número “n”, de tal forma que el programa lea (escriba) los 
datos a través del canal “n”, independientemente del periférico al que hayamos 
“enganchado” o asignado este canal. 

y 
Proceso 

Otra gran parte del programa se emplea en procesar los datos contenidos en 
la memoria principal. Este proceso puede consistir en la ejecución de operaciones 
aritméticas o el movimiento, búsqueda y ordenación de letras o palabras. 

1.1.3 
Asignación 
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Además de las dos secciones anteriores, nos podemos encontrar en el progra- 
ma con algunas sentencias que sirven para conectar un canal lógico “n” a un 
periférico en particular. 

Esta asignación se efectúa a través de la sentencia OPEN+F, con la que 
identificamos un periférico con el número “n” seleccionado. 

De esta forma, un programa que lee unos nombres desde el teclado, los 
ordena y los escribe posteriormente en la pantalla será prácticamente el mismo 
que otro que los toma de un fichero en microdrive y, después de ordenarlos, los 
escribe en la impresora. 

La única diferencia residirá en que al comienzo del primer programa debere- 


mos asignar (“enganchar”) el canal de entrada al teclado y el de salida a la 
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otros Spectrums 
a/de | Red de Area Local (LAN) 


RS 232 
Periféricos 


a/de ( 


a IMPRESORA ZX 


INTERFACE 1 


a/de (Cassette 


Alimentación 
a TV 


UNIDAD CENTRAL 
DE SPECTRUM 


Altavoz 


TECLADO 


pantalla y, sin embargo, en el segundo ejemplo deberemos asignar el canal de 
entrada al fichero en microdrive y el de salida a la impresora. 
Veamos los ejemplos: 


REM PROGRAMA EJEMPLO 1 


REM ASIGNACION DE CANALES 
REM Entrada desde Teclado 
OPENHS, "K" 
REM Salida hacia Pantalla 
OPENHó, "S* 
REM COMIENZA LA EJECUCION 


REM ENTRADA DE LOS DATOS DESDE EL CANAL LOGICO $45 
DIM A$(19,19) 


FOR I=1 TO 19 

INPUTIS;AS(I) 

NEXT 1 

REM PROCESO DE ORDENACION 

FOR I=1 TO 9 : FOR J=1I+1 TO 19 

IF AS(TI)<=A$(J) THEN GOTO 279 

LET ES=A$(1) : LET AS$(I)=AS(J) : LET AS(J)=BS 
NEXT J : NEXT I 

REM SALIDA DE LOS DATOS HACIA EL CANAL LOGICO té 
FOR I=1 TO 19 

PRINT NójAS(I) 

NEXT TI 


En el caso de que quisiéramos efectuar la entrada de datos desde un fichero en 
microdrive y la salida hacia una impresora conectada al interfaz RS-232, sólo 
tendríamos que modificar las líneas de asignación de canales: 


149 OPENNS, "M"315 "FICHERO" 
159 OPENH6,"T" : FORMAT "T",4899 : REM Baudios 


Evidentemente, en este último caso debe existir previamente un fichero en el 
microdrive que contenga, al menos, 10 nombres. 

Es importante entender bien este concepto de canal lógico si se pretende sacar 
el máximo partido al Interface 1, puesto que todos los comandos que ésta añade 
lo utilizan. 


1.2 


AAA A A E A E A RR 
Canal físico 


Llamaremos canal físico a la zona de la memoria RAM reservada por un 
periférico, en la que se especifican: 
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EA, Va, 19200 02000 000 (22/4/24 


O IC 


Fichero”'A” Fichero “B” Fichero “C” Fichero “A” 
Registro '0' Registro '12' Registro '0' Registro '2' 
“Libre' Fichero “A” “Libre” 

Registro '1' 


a ———— Dirección de la cinta 


1.2.1 
Subrutina de escritura 


Dos bytes que forman una dirección de memoria donde reside la subrutina 
utilizada para enviar datos hacia ese periférico. 


1.2.2 
Subrutina de lectura 


Otros dos bytes que forman, a su vez, la dirección de memoria, donde 
comienza la subrutina utilizada para recibir datos desde ese periférico. 


1.2.3 
Identificador del canal 


Un byte que contiene el código del carácter ASCII que representa al canal. 
Los caracteres permitidos son: 


“K” — El teclado, (keyboard). 

“S” — La pantalla (Screen). 

“R” — Un área de trabajo en RAM. 
“Pp” — La impresora ZX (Printer). 


“M” — Un microdrive. 
“T” — El Interfaz RS-232 en modo TEXTO. 
“B” — Idem, en modo binario. 


“N” — Una estación de la red ZX (net). 
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1.2.4 


SPECTRUM 


INTERFACE 1 


Zona de parámetros y almacenamiento intermedio (opcional) 


El número de bytes reservados para esta zona es variable y sirve de almacena- 
miento intermedio (buffer) en el caso de que la transferencia no se efectúe byte a 
byte (ejemplo: para un canal del microdrive se reservan 512), esto es, cada vez que 
se escribe (lee) a (desde) el periférico. Realmente se escribe (lee) en la zona de 
memoria ocupada por este almacenamiento intermedio. La transferencia física al 
periférico sólo se produce cuando la zona está completa (vacia) y de una sola vez 
se escriben (leen) todos los bytes (512 en el caso del microdrive). 

También pueden existir unos cuantos bytes que contienen algunos parámetros 
con las características del periférico (nombre del fichero, tipo, etc). 

En el Spectrum, la zona donde residen los canales físicos comienza en la 
dirección contenida por la variable del sistema “CHANS” ubicada en la dirección 
($5C4F o 23631). Para ver, en nuestro caso particular, dónde comienza esta área 
ejecutar... 


PRINT PEEK (23631) +256X*PEEK (23632) 


Cuando ejecutamos una sentencia OPEN ¿E, el sistema operativo se encarga de 
reservarnos una zona de la memoria para este nuevo canal físico, desplazando 
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1.2.5 


para ello nuestro programa BASIC hacia direcciones más altas, si es que existe 
memoria suficiente. Aquí surge una de las principales dificultades en la conversión 
de programas escritos y salvados en cassette. Cuando queremos hacerlos funcio- 
nar en microdrive suelen ocurrir dos cosas; o al intentar cargarlos no hay 
memoria suficiente, puesto que necesita una zona extra para el canal, o algunos 
programas escritos en lenguaje máquina y almacenados en líneas REM han sido 
desplazados por la creación del canal y no funcionan correctamente los direccio- 
namientos. 

Esta dificultad no existiría si se pudiera colocar la zona de canales por encima 
del límite RAMTOP de la memoria, hecho que no permite el sistema operativo en 
ROM del Spectrum. 


Descripción del funcionamiento de las asignaciones 
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En el momento de encender el Spectrum se pone en marcha automáticamente 
un programa almacenado en la ROM principal, a partir de la posición de 
memoria 0. 

Este programa, además de otras cosas, ejecuta la inicialización de dos tablas 
en RAM. 

La primera de ellas es la tabla de canales lógicos abiertos. Su contenido inicial 
se guarda permanentemente en la ROM ($15C6 = 5574) y simplemente es copiada 
por la subrutina de inicialización a la dirección de memoria en RAM ($5C10 = 
= 23568), que corresponde a la variable del sistema STRMS (manual de instruc- 
ciones Spectrum, cap. 25). 


Tabla de canales lógicos abiertos (“streams”) 


Dirección inicial: $5C10 o 23568 (RAM). 

Número de elementos permitidos (canales abiertos): 19. 
Número de elementos iniciales: 7. 

Número de bytes por elemento: 2. 


Composición inicial: 


Dirección Elto. Contenido C. lógico C. Físico asignado 
$5C10 1 $01 $00 253 “K” Sólo para el sistema. 
$5C12 2 $06 $00 254 “S” Sólo para el sistema. 
$5C14 3 $0B $00 255 “R” Sólo para el sistema. 
$5C16 4 $01 $00 0 “K” Teclado y área. 

$5C18 5 $01 $00 1 “K” Inferior pantalla. 
$5C1A 6 $06 $00 2 “S” Area superior pantalla. 
$5C1C 7 $10 $00 3 “P” Impresora ZX. 

$5C1E 8 $00 $00 — — Canal cerrado. 

$5C20 9 -- etc. 


12 CANALES 


INTERFACE 1 


ZX SPECTRUM 


7 CANALES 


La segunda tabla es el área de canales físicos que, como ya explicamos en el 
punto 1.2, contiene los apuntadores a las subrutinas de lectura y escritura a cada 
periférico, además del carácter que lo identifica. Su contenido inicial es el siguien- 
te: 


Tabla de canales físicos 


Directión inicial: No es fija, sino que está contenida en la variable del sistema 
CHANS ($5C4F = 23631). Llamaremos (CHANS), entre paréntesis, a la dirección 
contenida en la variable CHANS. El valor inicial es $5CB6 = 23734, pero se 
modifica si utilizamos el Interface 1 y pasa a ser $5CF0O=23792. No obstante, 
repetimos que puede variar. 
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20 


Número de elementos permitidos: Tantos como canales lógicos. 
Número de elementos iniciales: 4. 
Número de bytes por elemento: Variable (mín=5, máx= 595). 


Composición inicial: E 
Dirección Elto. Contenido Descripción 
(CHANS)+0 1 $F4 $09 Sub. Impresión pantalla (área baja). 
SAO $10 Sub. Lectura del teclado. 
$4B Carácter Ascii “K”. 
(CHANS)+5 2 $F4 $09 Sub. Impresión pantalla (área baja). 
$C4 $15 Sub. Error-J. 
$53 “S”, 
(CHANS)+10 3 $81 $0F Sub. añade byte al área input. 
$C4 $15 Sub. Error-J. 
$52 Ri: 
(CHANS)+15 4 $F4 $09 Sub. Impresión en la ZX printer. 
$C4 $15 Sub. Error-J, 
$50 a des 
(CHANS)+20 — $80 Marca de final de tabla. 


Como vemos, el contenido es una dirección almacenada en la forma usual de 
microprocesador Z80, esto es, el primer byte es el menos significativo. Así, por 
ejemplo, la subrutina de impresión en el área baja de la pantalla, utilizada por el 
canal “K” (teclado), comienza en la dirección $09F4. 

También podemos observar que aquellos canales que no permiten la transfe- 
rencia de datos desde el periférico hacia la memoria principal (ejemplo: no se 
puede leer un dato desde la impresora) contienen, en lugar del apuntador a una 
subrutina de lectura, el de otra subrutina ($15C4) que se encarga de generar el 
error J (invalid I/O devices) comunicando al usuario que esta lectura no está 
permitida. 

Para resumir, veamos lo que hace el sistema cada vez que intenta leer o 
escribir a un periférico. 


a) La instrucción de lectura escritura (PRINT, INPUT, INKEYS...) debe 
estar asignada previamente a un canal lógico (número), ya sea implicita- 
mente (PRINT corresponde al canal 2) o explícitamente (PRINT + 5). 

b) Cuando ejecutamos alguna de estas instrucciones el sistema operativo 
busca este canal lógico “n” y accede al elemento “n+4” en la tabla de 
canales lógicos (el canal O es el elemento 4). 

c) Si el contenido de ese elemento es 0, significará que el canal no existe, 
generando el sistema un error J. 

d) Si es distinto de cero, el sistema suma este contenido al contenido de la 
variable CHANS, obteniendo de este modo la dirección donde comienza el 
canal físico al que está asignado el canal lógico (en rigor, hay que restar 1 
al contenido del elemento de la primera tabla antes de sumarle 
[CHANS])). 


e) Una vez obtenida la dirección del comienzo del canal físico, si lo que se 
está tratando es de escribir en el periférico, el sistema escogerá la primera 
dirección de subrutina de las dos almacenadas. Si, por el contrario, trata- 
mos de leer desde ese periférico, el sistema escogerá la segunda. 

f) Por último, el sistema ejecutará la subrutina seleccionada, la cual se 
encargará de la comunicación con ese periférico en particular. 


Aunque en principio parezca un poco complicado, todas estas operaciones las 
realiza el sistema operativo, siendo transparentes para el usuario, y, además de las 
ventajas explicadas en el punto 1.1.3, nos va a permitir introducir nuevos periféri- 
cos diferentes a los estándar. 

Es ésta la manera, por ejemplo, en la que la mayoría de las compañías que 
suministran interfaces de impresora tipo Centronic o RS-232 externas, añaden sus 
propias subrutinas para manejar los circuitos que componen su interfaz en parti- 
cular. 

El método es muy sencillo. Sólo hay que modificar el contenido del elemento 4 
de la tabla de canales físicos para que la subrutina de escritura no sea $09F4, sino 
nuestra propia subrutina; a partir de ese momento, cada vez que se utilice un 
comando LPRINT, LLIST o PRINT+3 el sistema comenzará a ejecutar nuestra 
subrutina, pasándole como parámetro en el registro A el código Ascii del carácter 
que desea imprimir. 
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Ampliación 
del BASIC 
con el Interface 1 


Como hemos apuntado al principio, el Interface 1 provee al Spectrum de tres 
nuevas interfaces (RS-232, Net, Microdrive), pero aunque la estructura del intér- 
prete BASIC está preparada para utilizar, a través de los canales, cualquier tipo 
de interfaz, necesita de las subrutinas específicas de lectura y escritura para cada 
interfaz. 

Es por esto que el Interface 1 añade 8K de programas en código máquina 
para las comunicaciones con los tres interfaces referidos. 

Estos programas están almacenados permanentemente en ROM (memoria de 
sólo lectura), pero debido a que el microprocesador Z80 posee un espacio limita- 
do de direccionamiento (0-65535), y el Spectrum con 48K de RAM y 16K de 
ROM lo tiene completamente ocupado, se han superpuesto los 8K de la nueva 
ROM a las primeras 8K de la ROM estándar. 

Existe un problema de superposicón de dos memorias en el diseño electrónico 
del Interface 1; se ha resuelto recurriendo a un sistema de decodificación de di- 
recciones, llamado vulgarmente de “paginación”. 

Vamos a intentar aclarar este concepto. 


e 
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INTERFACE 1 


CONECTOR 

PARA EXPAN- 
SION AMPLIADA 
'p. ej., para conectar 
el interfaz 

a impresora 

ZX) 

CONECTOR 

DEL INTERFACE 


CONECTORES 
PARA ESTABLECER 
UNA RED 
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CONECTOR 


DE EXPANSION 


CONECTOR 
PARA PERIFERICO 
RS 232 


CABLE DE CINTA 


ZX SPECTRUM 


CONECTOR PARA 
MICRODRIVE UTILIZANDO 
EL CABLE DE CINTA 


MICRODRIVE 


2.1 


CONECTOR D CONECTOR DE EXPANSION 
PARA RS 232 


CONECTORES PARA 
RED DE AREA LOCAL 


CONECTOR PARA 
SPECTRUM 


SHADOW 
ROM 


CONECTOR ULA 
LATERAL 
PARA EL 
MICRODRIVE 


Paginación de la nueva ROM 


Gracias a una circuitería electrónica del Interface 1, que decodifica la direc- 
ción por la que va ejecutando instrucciones el microprocesador, en ciertas condi- 
ciones el mapa de memorias del Spectrum cambia instantáneamente del Básico 
a un nuevo mapa, en el que está incluida la ROM2 del Interface 1. 

A este intercambio transparente de una zona (llamadas “páginas” cuando su 
longitud es múltiplo de 256) de la memoria del micro lo llamaremos “paginación”. 

En el estado inicial, aun con el Interface 1 conectado, el mapa de la memoria 
contiene las 48K de RAM y las 16K de la ROM que contiene el intérprete BASIC 
del Spectrum. Pero cuando se selecciona el mapa del Interface 1, las 16K ROM 
de BASIC son sustituidas por 8K de la nueva ROM2 que va a ocupar la zona 
que comienza en la dirección $0 hasta la SIFFF=8191. Las 8K sobrantes 
($2000 —$4FFF) contienen una copia o “reflejo” de las primeras 8K de la ROMI1. 

Hay que dejar claro que en ningún momento el micro puede estar leyendo 
instrucciones de una y otra ROM; esto es, el mapa del Spectrum es uno u otro, 
pero nunca una combinación de ambos. Para saltar de uno a otro mapa hay que 
ejecutar una de las siguientes operaciones: 

Se selecciona el mapa del Interface 1 cuando el microprocesador intenta eje- 
cutar las instrucciones que residen en las posiciones de memoria $0008 o $1708. 
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MAPA BASICO DIRECCION MAPA INTERFACE 1 


65535 S$FFFF 


48 Kbytes 


48 Kbytes 


RAM RAM 


16384 $4000 


8 Kbytes 
idénticos 
ala ROM1 


16 Kbytes $2000 


ROMI1 


8 Kbytes 
ROM2 
Interface 1 


SPECTRUM 


0 $0000 


Por el contrario, se vuelve a seleccionar el mapa inicial cuando el micropro- 
cesador intenta ejecutar una instrucción en la posición $0700. 

Notemos que si el microprocesador accede a una de estas posiciones de 
memoria para leer o escribir un dato no se producirá la paginación, que sólo 
llegará a ocurrir cuando intente ejecutar una instrucción residente en esas posicio- 
nes. 

Esto es así debido a que la electrónica del Interface 1 detecta, por medio de 
una línea especial del Z80 llamada M1, cuándo está accediendo para ejecutar una 
instrucción o cuándo lo hace para leer o escribir un dato. 

Veamos un ejemplo. Supongamos que en el siguiente gráfico la instrucción 14 
es la que ejecuta la paginación de la ROM1 a la ROM2. 


ROMI ROM2 


INSEFTUCCION 1D bis Instrucción 20 
INStErUCCION AZ E Eo Instrucción 21 
Instrucción aaa Instrucción 22 
Instrucción 14 aan as Instrucción 14 
Instrucción lis Instrucción 23 
InStrocción: LO aa Instrucción 24 


(Las mismas direcciones, pero en otra página.) 


Comenzando en la instrucción 1 de la ROMI, las instrucciones ejecutadas por 
el micro serán en secuencia: 11, 12, 13, 14, 15 y 16. Además, si comenzáramos en 
la instrucción 20 de la ROM2 la secuencia sería: 20, 21, 22, 14, 23 y 24, puesto 
que las instrucciones que producen la paginación son unidireccionales. 

Notemos también que estas instrucciones deben ser idénticas en las dos ROM; 
en caso contrario, podrían ocurrir problemas muy graves a nivel electrónico. 

La primera vez que se accede a la ROM2, se ejecuta una subrutina dentro de 
esta misma ROM2, que inicializa la zona de variables del sistema introduciendo, 
entre ésta y la zona de canales físicos, 58 nuevas variables del Interface 1 que 
servirán para almacenar diversas condiciones de los interfaces (baudios, nombre 
de microdrives, etc.). 

Existe una subrutina, contenida en la nueva ROM2, que ayuda al programa- 
dor a realizar las paginaciones dentro de sus programas en código máquina (véase 
manual del microdrive, pág. 45). 

Esta subrutina es conocida con el nombre de SBRT y está almacenada en la 
dirección $5CB9=23737. Su contenido desensamblado es: 


Direc Contenido Etiquetas Mnemonico 

$5CB9 +21 Sbrt LD HL,NhNI1 
$5CBA NL NH Reghl 

$5CBC *CD CALL $ShSIl 
$H5CBD Sl Sh SubROM1 
$5CBF $22 $BA +5C LD (REGHL) , HL 
$5CC2 $09 RET 

+$D7 RST +9919 

$FNL SNH DEFW SUBROM1 

r MEXT Instruccion 


Al estar almacenada en RAM puede ser modificada, y cada vez que se la llama 
hay que introducir en ella los bytes Nh y NI, el registro HL y los bytes Sl y Sh 
que forman la dirección de la subrutina en la ROM1 que queremos llamar. 
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2.2 


Esta función la ejecuta automáticamente otra subrutina en la ROM2 que, a su 
vez, llama a SBRT preparándola del modo indicado previamente. 

Esta nueva subrutina, llamada CALBAS, es la realmente utilizada por el 
programador y se encuentra situada en la dirección de memoria $10 de la ROM2. 

Por tanto, si con la ROM2 activa deseamos utilizar una subrutina en la 
ROM] preservando todos los registros, incluido el HL, sólo tenemos que ejecutar 
la instrucción: 


$D7 RST $0010 
$NL $NH DEFW SUBROM1 
NEXT Instrucción 


donde los dos bytes $NH y $NI que componen la dirección de la subrutina en la 
ROM1 deben seguir inmediatamente a la instrucción de restart. 

Después de haber terminado la subrutina en la ROM, el micro continúa con 
la instrucción situada en la posición NEXT, habiéndose repaginado previamente 
la ROM2. 


Ampliación de los comandos del BASIC 
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Cuando el intérprete BASIC del Spectrum encuentra un error de sintaxis en la 
línea que intenta editar o ejecutar, salta siempre a una rutina de error, ejecutando 
para ello la instrucción RST $08 y pasando como parámetro en el registro A el 
código del error acaecido. 

En la ROM1, esta subrutina se encarga de generar el mensaje en pantalla, 
pero, como hemos visto anteriormente, la posición $08 es una de las que producen 
la paginación (ROM1= <ROM2). 

De esta forma, cada vez que ocurre un error, el intérprete pasa el control a la 
ROM2 ($08), donde se examina si el comando causante del error es uno de los 
nuevos comandos del Interface 1 (CAT, FORMAT... 

En caso afirmativo, y con la ROM2 activa, se ejecutan las nuevas rutinas 
asignadas a estos comandos devolviendo posteriormente el control al intérprete de 
la ROMÍ1 para continuar el proceso normalmente. 

Si el comando es nuevo, pero los parámetros no se ajustan lo debido a la 
nueva sintaxis, la ROM2 genera sus propios mensajes de error sin utilizar para 
ello la rutina empleada en la ROM1. 

Por último, si la causa del error no es un nuevo comando, la ROM2 examina 
la variable del sistema llamada “VECTOR” ($5CB7=23735), incluida en las 58 
nuevas variables de la Interface 1 y ejecuta la subrutina que comienza en la 
dirección contenida en VECTOR. 

El contenido inicial de VECTOR es $01FO0, que coincide con la subrutina en la 
ROM2 encargada simplemente de pasar el control a la ROMÍ, para que, a su vez, 
ésta genere el mensaje de error pertinente. 


En principio, se puede pensar que es inútil diseñar una rutina que esté 
obligada a analizar constantemente el contenido de una variable, de valor fijo, 
para poder continuar con la ejecución. Sin embargo, éste es el método normal que 
utilizan los sistemas operativos para permitir ser ampliados y es una gran suerte 
que haya sido incluido por primera vez en el Spectrum. 

Este método de ampliación suele denominarse de “Enganche”, puesto que, 
modificando esta variable para que apunte a nuestra propia subrutina, logramos 
insertarla, de hecho, dentro del propio intérprete BASIC. 

Basta con devolver el control al antiguo contenido de VECTOR ($01F0), en el 
caso de que el error no esté producido por alguno de nuestros comandos, para 
que se continúe ejecutando normalmente el intérprete BASIC del Spectrum. 

No obstante, es importante conocer el orden en que el intérprete BASIC 
examina la sintaxis de un error que, para el caso del Spectrum, puede resumirse 
en cinco tareas: 


Ver si la sintaxis tiene sentido en la ROM1 (comando BASIC estándar). 
En caso negativo, llamar a la rutina de error $08. 

Ver si tiene sentido en la ROM2 (nuevo comando del Interface 1). 

Si no lo tiene, saltar a la rutina error ($01F0) a través del (VECTOR). 
Si (VECTOR) apunta a nuestra subrutina, debemos examinar en ella si 
la sintaxis concuerda con alguno de nuestros comandos y, en caso negati- 
vo, saltar a la rutina $01F0 con la ROM2 activada. 


AE DIES 


Por tanto, un comando que tiene sentido en la ROM1 no llega a ser examina- 
do por la ROM2, y más importante: «Un comando que tiene sentido en la 
ROM1 o en la ROM2 no llega a ser examinado por nuestra subrutina.» 

La conclusión que podemos sacar es que no podemos utilizar para nuestros 
nuevos comandos la sintaxis ya examinada por los comandos existentes, tanto en 
la ROM1 como en la ROM2. Esto es, no podemos definir un comando que se 
llame CAT, pues éste es previamente aceptado por la ROM2. 

Es una pena no encontrar en el Spectrum jerarquías más racionales, como las 
existentes en otros micros (ejemplo: HP85). En estos micros, a la hora de exami- 
nar la sintaxis primero se busca algún programa binario del usuario que la 
satisfaga; si no existe, se busca en alguna de las extensiones ROM, y, por último, 
si tampoco concuerda con ninguna de ellas, se acaba buscando en la ROM del 
sistema. Esta estructura posibilita reescribir cualquier comando del intérprete 
BASIC para que se adapte mejor a nuestras necesidades. 
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Subrutinas 
importantes 


de la ROMA 


Se pueden estudiar las subrutinas de la ROM2 desde dos puntos de vista: 


1. Rutinas útiles para interpretar los nuevos comandos. 
2. Rutinas de comunicación con los interfaces. 


3.1 
Rutinas para interpretar los nuevos comandos 


a) La rutina $0010 (ROM2), llamada CALBAS, que, como ya explicamos, 
nos sirve para llamar a cualquier subrutina en la ROM1 estando activa la ROM2. 
Parámetros de entrada: los dos bytes que siguen a la instrucción de llamada 
(RST $10) deben formar la dirección de la subrutina en la ROM. 
Parámetros de salida: los propios de la subrutina que hayamos ejecutado. 
Registros modificados: ídem. 


b) La rutina $05B7 (ROM2), que es transparente en el caso de que nos 
encontreños en tiempo de ejecución de comandos. (Si el bit más significativo [7] 
de lawyariable del sistema FLAGS es 1.) Si nos encontramos en tiempo de 
verificación de la sintaxis de una línea nueva de programa (bit 7 de [FLAGS]=0), 
esta subrutina pasa el control al editor normal de BASIC de la ROM1 para que 
continúe normalmente. 
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3.2 


Parámetros de entrada: bit 7 de la variable (FLAGS). 

Parámetros de salida: ninguno. 

Registros modificados: ninguno, salvo que el bit 7 de (FLAGS) sea igual a 0, 
en cuyo caso ni siquiera devuelve el control. 


c) La rutina $01F0 (ROM2) simplemente pasa el control a la rutina de error 
con la ROMI activa. El puntero de la subrutina de error está contenido en una 
dirección a su vez, guardada en la variable del sistema ERRSP ($5C3D= 23613). 
En nuestra notación se escribiría ((ERRSP)). 

Parámetros de entrada: ((ERRSP)) y el registro A con el código del error 
ocurrido. 

Parámetros de salida: ninguno. 

Registros modificados: ninguno. 


d) La rutina $05C1 se encarga de devolver el control a la intérprete BASIC 
de la ROM1 cuando se acaba de ejecutar nuestro comando sin ningún error. 

Parámetros de entrada: ninguno. 

Parámetros de salida: ninguno. 

Registros modificados: —. 


Rutinas de comunicación con los interfaces 
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La ROM2 está estructurada de tal manera que casi todos los interfaces se 
pueden manejar con la misma subrutina. Simplemente hay que suministrar un 
parámetro que especifique la función que se desea realizar. 

La subrutina en cuestión comienza en la dirección $08, donde, como ya 
hemos comentado, se encuentra una de las “puertas de paginación” de la ROM2. 

El parámetro va a ser el valor de 0 a 255 contenido en la siguiente posición de 
memoria a la que contiene la instrucción de llamada de la subrutina. 

Veamos un ejemplo de cómo llamar a la subrutina: 


; Asegurarse que la ROM 1 está activa 
$CF RST $8 ; Instrucción de restart 
N DEFB N ; Parámetro de función. 


Existen tres tipos de funciones, según el rango de N: 


1. 0>=N>=26 /Generación de los errores normales de BASIC. 
2. 27>=N>=50 /Comunicación con los nuevos periféricos. 
3. 51>=N>=255 / Generación de los nuevos errores del Interface 1. 


En el primer caso, la subrutina vuelve a dar control a la rutina normal de 
error de la ROM1. 


En el último caso, da control a la rutina de error de la ROM2 y, una vez 
ejecutada, vuelve a quedar activada la ROMI1. 

La novedad viene en el rango intermedio, y es el que vamos a explicar con más 
detalle. 


1. N=$1B=27. COMANDO INKEY$ (TECLADO) CON ESPERA 


Este comando es idéntico a la función de BASIC INKEYS$, con la diferencia 
de que espera a que alguna tecla sea pulsada. Cuando esto ocurre se calcula el 
código del carácter correspondiente a esta tecla y se almacena en el registro A. 

Parámetros de entrada: N=27=8$1B. 

Parámetros de salida: código del carácter en A. 

Registros modificados: BC, DE, HL, AF. 


2. N=$1C=28. COMANDO PRINT 


Este comando imprime el carácter cuyo código está contenido en el registro A, 
habiendo seleccionado previamente como canal de salida el +2, que suele estar 
asociado a la parte superior de la pantalla. 

Parámetros de entrada: N=28=$1C y el código del carácter en A. 

Parámetros de salida: ninguno. 

Registros modificados: BC, DE, HL, IX, F. 


3. N=$1D=29. COMANDO INKEYS$ (RS232) CON ESPERA 


Este comando acepta un byte de interface RS232 esperando a que sea recibido 
y almacenándolo en el registro A. 

Parámetros de entrada: N=29=6$1D, el contenido de la variable del sistema 
BAUD=$5CC3=23747, con los baudios y el de SERFL=$5CC7=23751 puesto 
a. 

Parámetros de salida: código del carácter en A. 

Registros modificados: BC, HL, AF, DE. 


4. N=$1E=30. COMANDO PRINT +*(RS232) 


Este comando envía el carácter almacenado en el registro A a través del 
interfaz RS-232. 

Parámetros de entrada: N=30=$1E, el contenido del registro A (carácter que 
será transmitido), el contenido de la variable del sistema BAUD =$5CC3 = 23747, 
con los baudios y el de SERFL=$5CC7=23751 puesto a 0. 

Parámetros de salida: ninguno. 

Registros modificados: BC, HL, AF, DE. 
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5. N=$IF=31. COMANDO LPRINT (ZX Printer) 


Este comando imprime el carácter almacenado en el registro A en la impreso- 
ra ZX Printer. 

Parámetros de entrada: N=31=8$1F, el contenido del registro A (carácter que 
será impreso). Y 

Parámetros de salida: ninguno. 

Registros modificados: BC, HL, AF, DE. 


6. N=$20=32. COMANDO DE ESTADO DEL TECLADO 


Este comando lee el teclado y devuelve en el registro F su estado (estado = se 
está o no se está pulsando alguna tecla). 

Parámetros de entrada: N=32=8$20. 

Parámetros de salida: el bit de CARRY en el registro F. SET=tecla pulsada. 
RESET =ninguna tecla pulsada. 

Registros modificados: AF, HL. 


7. N=$21=33. CONTROL DEL MOTOR DEL MICRODRIVE 


Este comando enciende el motor del microdrive cuyo número está almacena- 
do en el registro A apagando todos los demás. Lógicamente, si A contiene un O se 
apagarán todos los motores. 

Parámetros de entrada: N=33=$21, A=unidad de microdrive. 

Parámetros de salida: ninguno. Í 

Registros modificados: la interrupción se desinhibe, por lo que terminada la 
subrutina hay que ejecutar la introducción El (es conveniente ejecutar esta ins- 
trucción en casi todos los comandos relacionados con el microdrive). 


8. N=$22=34. COMANDO OPEN+ 


Este comando permite ejecutar la sentencia BASIC OPEN 4¿+“m”;1;“fichero” 
desde el programa en código máquina. Veremos un ejemplo detallado en el 
capítulo 5. 

Parámetros de entrada: N=34=$22, la variable del sistema 
D_STR1($5CDS=23768) debe contener la unidad de  microdrive (1-8), 
N_STR1($5CDA =23770) debe contener la longitud del nombre (2 bytes) y la 
dirección de comienzo de la zona de memoria donde está guardado (2 bytes). 

Parámetros de salida: el registro IX contiene la dirección de comienzo del 
canal físico. 

Registros modificados: HL”, IX, HL. HL” debe ser guardado, para reconstruirlo 
una vez ejecutado el comando. 


9. N=$23=35 COMANDO CLOSE+ 


Es idéntico a utilizar CLOSEF+C en BASIC, donde C es el canal lógico. 

Parámetros de entrada: N=35=$23,IX debe contener la dirección de comien- 
zo del canal físico. 

Parámetros de salida: ninguno. 

Registros modificados: AF, HL, IX, HL”. 


10. N=$24=36 COMANDO ERASE 


Es idéntico a su comando BASIC correspondiente. 

Parámetros de entrada: N=36=5$24, el resto son los mismos que para el 
comando OPENfH. 

Parámetros de salida: ninguno. 

Registros modificados: AF, HL, IX, HL”. 


11. N=$25=37 COMANDO DE LECTURA SECUENCIAL 
DE UN FICHERO 


Esta interesante subrutina permite leer desde microdrive el siguiente sector del 
fichero, cuyo canal físico esté apuntado por el registro IX. 

Parámetros de entrada: N=37=$25, IX debe contener la dirección de comien- 
zo de un canal físico de microdrive y la variable CHREC (byte 13 del canal, 
comenzando por el cero) debe contener el número del sector actual. 

Parámetros de salida: el canal físico contendrá el siguiente sector, y la variable 
CHREC ha sido incrementada. 

Registros modificados: HL”, HL, BC, DE, AF. 


12. N=$26=38 COMANDO DE ESCRITURA SECUENCIAL 


Es idéntico al anterior, pero esta vez escribe el contenido actual del canal físico 
en el primer sector libre del microdrive. 
Parámetros de entrada: N=38=$26, IX=comienzo del canal físico. 


Parámetros de salida: ninguno. 
Registros modificados: HL”, HL, BC, DE, AF. 


13. N=%$27=39 COMANDO DE LECTURA DE ACCESO DIRECTO 
A UN FICHERO 


Este comando es idéntico al de lectura secuencial, pero el sector leido dentro 
del fichero es el indicado por la variable CHREC y no el siguiente. 
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Parámetros de entrada: N=39=$27, IX=canal físico, CHREC =sector desea- 
do dentro del fichero. 

Parámetros de salida: contenido del canal físico. 

Registros modificados: HL”, HL, BC, DE, AF. 


« s 
14. N=$28=40 COMANDO DE LECTURA DE ACCESO ALEATORIO 


Comando parecido al anterior, pero el sector leído es el número contenido 
dentro de CHREC interpretado como número de sector dentro del microdrive y 
no como número de sector dentro de un fichero. 

Parámetros de entrada: N=40=$28, IX=canal físico, CHREC=sector desea- 
do dentro del microdrive (0-255). 

Parámetros de salida: contenido del canal físico. 

Registros modificados: HL”, HL, BC, DE, AF. 


15. N=$29=41l COMANDO DE LECTURA SECUENCIAL 
DEL MICRODRIVE 


Este comando puede ser utilizado para efectuar un catálogo del microdrive, 
puesto que accede al siguiente sector dentro del microdrive. 

Parámetros de entrada: N=41=$29, IX=canal físico. 

Parámetros de salida: contenido del canal físico, CHREC=sector leído. 

Registros modificados: HL”, HL, BC, DE, AF. 


$ 


SECTOR 


DATO 


16. N=$2A=42 COMANDO DE ESCRITURA ALEATORIA 


Escribe el canal físico en el sector del microdrive direccionado por el contenido 
de CHREC. 


Parámetros de entrada: N=42=5$2A, IX=canal físico. CHREC =sector desea- 
do dentro del microdrive (0-255). 

Parámetros de salida: ninguno. 

Registros modificados: HL”, HL, BC, DE, AF. 


17. N=$2B=43 COMANDO DE CREACION DE CANAL FISICO 


Es idéntico al comando OPENfÉ. 


18. N=$2C=44 COMANDO DE BORRADO DE CANAL FISICO 


El canal físico apuntado por IX es borrado y todas las áreas de direcciones 
más altas (programa BASIC, variables...) son desplazadas el mismo número de 
bytes que ocupaba antes el canal. 

Parámetros de entrada: N=44=$2C,, IX=canal físico. 

Parámetros de salida: ninguno. 

Registros modificados: HL, DE, BC, AF. 


19. N=$2D=45 COMANDO OPENGFH(NET) 


Este comando ejecuta la misma operación que OPEN++S;“n”;D, donde D es 
el identificador del Spectrum-destino y S es el canal lógico. 

Parámetros de entrada: N=45=$2D, la variable D-STR1 ($5CD6= 23766) 
debe contener el identificador del destino y NTSTAT ($5CC5= 23749) el identifi- 
cador de nuestro Spectrum. 

Parámetros de salida: creación del canal. 

Registros modificados: HL”, HL, BC, DE, IX, AF. 


20. N=$2E=46 COMANDO CLOSE+H(NET) 


Este comando cierra el canal físico de Net apuntado por IX. 
Parámetros de entrada: N=46=$2E,IX=canal de Net. 
Parámetros de salida: ninguno. 

Registros modificados: HL”, HL, BC, DE, IX, AF. 


21. N=$2F=47 COMANDO RECEPCION DE DATOS (NET) 
Este comando intenta recibir un bloque de datos por la NET. Si después de 
un tiempo no se ha recibido ninguno o se ha recibido con algún error, devuelve 


control con el bit CARRY de F a 1. 
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Parámetros de entrada: N=47=$2F,IX, NCIRIS,NCSELF,NCNUMB deben 
tener los valores deseados (pág. 48, manual microdrive). 

Parámetros de salida: el contenido del canal físico de la NET,NCNUMB es 
incrementado. 

Registros modificados: HL”, HL, BC, DE, IX, AF. 


« 


22. N=$30=48 COMANDO TRANSMISION DE DATOS (NET) 


Idéntico al anterior, pero para envío de datos por la NET. 

Parámetros de entrada: N=48=5$30,IX, el registro A debe contener un 1 
cuando el bloque que deseamos enviar es el último de un fichero y O en caso 
contrario. 

Parámetros de salida: NCNUM incrementado. 

Registros modificados: HL”, HL, BC, DE, IX, AF. 


23. N=$31=49 COMANDO DE CREACION DEL NUEVO AREA 
DE VARIABLES 


Como habíamos comentado, con el Interface 1 activa se crea un nuevo área de 
variables y ésta es la subrutina que la genera. 

Parámetros de entrada: ninguno. 

Parámetros de salida: ninguno. 

Registros modificados: HL, DE, BC, AF. 


El microdrive 


Debido a la importancia que tiene la ampliación del Spectrum con el microdri- 
ve, vamos a dedicar este capítulo a intentar explicar cómo es, cómo funciona y 
cómo se puede manejar. 

El microdrive es simplemente una cinta magnética sin fin, que se acciona por 
un motor de velocidad y sentido fijos. Posee una cabeza de lectura-escritura con 
doble pista alternativa, a través de la cual se puede leer o grabar una señal que 
representa ceros y unos. 


MICRODRIVE 


LUZ 


CONECTOR 


CARTUCHO 
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YA 


ULA DEL MICRODRIVE EN LA PARTE 

SUPERIOR DE LA PLACA 
CONECTOR FINAL 
(AL SPECTRUM) 


MOTOR 


DE CINTA CONECTOR 


PARTE 
INFERIOR 
DE LA PLACA 


INTERCONECTOR 
DE MICRODRIVES 


CONECTOR 
ENTRE PLACAS 


Vamos a estudiar el microdrive desde tres puntos de vista: 


1. El formato de los datos dentro de la cinta magnética. 
2. El formato exacto del canal físico. 
3. Diseño de nuevos comandos que mejoren el rendimiento. 


Para poder entrar en el último punto es inevitable tratar en profundidad los 
anteriores. 


4.1 
Formato de la cinta de microdrive 


El formato normal de una unidad de almacenamiento de datos suele consistir 
en: 
a) Un directorio donde se refleje: 


al) El TIPO de ficheros que contiene ese almacenamiento. 
a2) El NOMBRE de cada uno de ellos. 
a3) El LUGAR donde se encuentran. 


b) Una zona de datos dividida en sectores. 


1.* SECTOR 2.2 SECTOR 


a 


REGISTRO 
DESCRIPTOR 


BLOQUE 
DE 
DATOS 


CABECERA 
DE BLOQUE 


REGISTRO 
PRIMER HUECO SEGUNDO 


HUECO 


A DIRECCION DE LA CINTA 


Diseñar el formato del directorio puede parecer tarea fácil cuando utilizamos 
discos magnéticos, ya sean diskettes o discos duros, pero cuando el medio es 
intrínsecamente secuencial (cinta magnética) el tener que acceder a un directorio 
en el extremo de una cinta y rebobinar cada vez que deseemos tomar datos de un 
fichero hace el trabajo pesado y casi inviable. 

En el microdrive se ha optado por una cinta sin fin, y sin directorio. Es, por 
tanto, Obligada la inclusión de algún metodo de identificación y algún modo de 
localización. 

El método de identificación es incluir en cada sector de la cinta una etiqueta 
con el nombre del cartridge y fichero al que pertenece el sector, y el método de 
localización es simplemente por numeración secuencial de todos los sectores del 
cartridge. 

Existe un último problema, que consiste en evitar el efecto producido por la 
variación de la velocidad del motor de un mismo microdrive o de una cinta 
grabada en un microdrive y reproducida en otro. La solución tomada en este caso 
es incluir en la etiqueta de cada sector una serie de bits que formen una señal de 
sincronismo que le indique al microprocesador la velocidad a la que está pasando 
cada bit por unidad de tiempo. 

Con estas premisas podemos ya definir cómo va a quedar el formato de cada 
sector de el microdrive: 


1. La ETIQUETA del SECTOR formada por: 


la) Doce bytes que contienen los bits de sincronismo. 

1b) Un byte en el que cada bit significa algo (sector inutilizado, sector 
libre, sector ocupado...) 

lc) Dos bytes libres, para tener simetría con lo posterior. 

1d) Diez bytes con el nombre del cartridge. 


le) Un byte que contiene una suma de todos los anteriores y que sirve 
de test. 


Un espacio o silencio. 

El bloque de DATOS formado a su vez por: 

3a) Doce bytes de sincronismo. 

3b) Un byte con el número de registro que hace este sector dentro del 
fichero. 

3c) Dos bytes con la longitud ocupada por el registro de datos dentro de 
este sector. 

3d) Diez bytes con el nombre del fichero al que pertenece este registro. 

3e) Un byte con la suma de todo lo anterior (test). 

3f) Quinientos doce bytes donde se guarda el registro. 

3g) Un byte con la suma de la zona de datos (test). 


Un nuevo silencio hasta el próximo sector. 


12 bytes 1 bye 2 bytes 10 bytes 1 bye 512 bytes 1 bye 


Así, cuando ejecutamos la sentencia FORMAT*“m”;1;*CART” ocurren los si- 
guientes fenómenos: 


a) 
b) 


c) 


Se escriben 256 sectores con números de identificación descendentes (255-0) 


y con datos que servirán de test. 
La longitud del cartridge es tal que los últimos sectores sobrescriben parte 


de los primeros. 
Se efectúa una lectura de todos los sectores accesibles y se marca en una 
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d) 


zona, llamada “Mapa del microdrive”, el número de los sectores que 
contienen los bytes “test” correctos. 

Se vuelven a sobrescribir los sectores en buen estado, esta vez con la zona 
de datos a O y los bytes de longitud de registro también a 0. Además, en el 
byte de la etiqueta que contiene los bits indicadores (treceavo) se señala 
que esos sectores están libres. 


Una vez que sabemos qué información contiene realmente la cinta del micro- 
drive, vamos a estudiar el formato del canal físico. 


4.2 


Canal físico del microdrive 


Como ya apuntábamos en el capítulo 1, el canal físico es la zona de memoria 
reservada por un periférico donde se encuentran ubicados los apuntadores de las 
subrutinas de lectura y escritura en ese periférico y otras variables con sus 
características. 

En el caso del microdrive, la zona ocupada es de 595 bytes, repartidos de la 
siguiente manera: 


Byte 
1-2 
3-4 
5 
6-7 
8-9 
10-11 
12-13 


14 
15-24 
25 


26 
27-28 


Nombre 
SUBESC 
SUBLEC 
IDCANA 
SESCR2 
SLECR2 
LONGIT 
CHBYTE 


CHREG 
CHNAME 
CHFLAG 


CHDRIV 
CHMAP 


Descripción 

Dirección de la subrutina de escritura ($08). 
Dirección de la subrutina de lectura ($08). 

Carácter identificador del canal (“m” o “M>”). 
Subrutina real de escritura en la ROM2($11D8). 
Subrutina real de lectura en la ROM2 ($1122). 
Longitud del canal menos uno (595). 

Apuntador al próximo byte a leer o escribir dentro de 
REGIST (0-512). 

Número de este registro dentro del fichero. 

Nombre del fichero (10 caracteres). 

El bit menos significativo de este byte nos indica si el 
fichero está abierto para escritura (1) o para lectura (0). 
Número de microdrive menos uno (0-7). 

Dirección donde se está guardando el mapa de este 
microdrive. 


A partir de este punto el canal del microdrive es idéntico al formato que 
tendrá el sector una vez grabado en la cinta, el cual ya hemos descrito en el punto 


4.1. 
29-40 


41 


HDSINC 


HDFLAG 


Bytes que contienen los bits de sincronismo para la 
etiqueta. 

El bit menos significativo es utilizado para señalar que 
este sector está ocupado. 


42 HDNUMB 
43-44 NOUTIL 
45-54 HDNAME 


55 HDCHK 
56-67 DASINC 

68 RECFLG 

69 RECNUM 


70-71 RECLEN 
72-81 RECNAM 


82 DESCHK 
83-594 REGIST 
S96 DCHK 


Posición ocupada por este sector dentro del cartridge. 
Sin utilizar. Añadidos por simetría. 

Nombre del cartridge. 

Suma para verificar la validez de lo anterior. 

Bytes con los bits de sincronismo. 

El bit 0=0 siempre. El bit 1 es 1 cuando este registro 
es el último del fichero. El bit 2 es cuando es un fichero 
de programa o código y no lo es de datos. 

Número de este registro dentro del fichero (0-255). 
Número de bytes de datos dentro de este registro. 
Nombre del fichero. 

Suma para verificar la validez de lo anterior. 

Zona donde se guarda el registro. 

Suma para verificar lo anterior. 


Si el canal se ha creado a través de la ejecución de un comando OPEN +, el 
bit más significativo del byte 6 (IDCANA) está a 0. Por el contrario, es 1 cuando 
el canal se ha creado automáticamente para ejecutar un SAVE* o LOAD+x... 

Cuando se produce la escritura a la cinta, se copian integramente todos los 
bytes a partir del número 29. 


VARIABLES 


CABECERA 
DE 
BLOQUE 
SIEMPRE QUE 


SE QUIERE U 
REGISTRO (SIN PR 


N 
EAMBULOS) 


CABECERA ESPACIO PARA DATOS 


CANAL MICRODRIVE 


*ESCRITURA' 


SIEMPRE 
QUE SE ESCRIBE 


UN REGISTRO SECTOR DEL 


CARTUCHO 


SEGUNDO 
HUECO 


'LECTURA' 


SIEMPRE QUE 
SE QUIERE UN 
REGISTRO (SIN 
PREAMBULOS) 


CANAL MICRODRIVE 


ESPACIO DE DATOS 


CABECERA 


VARIABLES 
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Analizando toda esta información se puede llegar a diseñar comandos que nos 
permitan acceder de la forma más rápida y simple a los datos almacenados en el 
cartridge, y es esto lo que hemos tratado de conseguir al escoger los nuevos 
comandos del MicroBASIC. 


4.3 
Diseño de nuevos comandos para el microdrive 


Los inconvenientes fundamentales que el usuario encuentra al utilizar el micro- 
drive con los comandos usuales son: 


1. El acceso debe ser siempre secuencial. Esto significa que cuando tenemos 
un fichero de gran longitud y por alguna razón necesitamos acceder a uno 
de los últimos datos, tenemos que ir leyendo previamente uno a uno todos 
los datos anteriores hasta alcanzar el deseado. Este condicionamiento hace 
del microdrive un sistema demasiado lento. 

2. Los datos almacenados a la mitad de un fichero no pueden ser modifica- 
dos. Para hacerlo tenemos que crear un nuevo fichero en el que copiare- 
mos, por un lado, todos los datos no modificados, y, por otro, introducire- 
mos los que queríamos cambiar. 

3. Los ficheros una vez cerrados no permiten ser expandidos. No podemos 
añadir nuevos datos al fichero que teníamos guardado desde la última vez 
que utilizamos el Spectrum. 

4. Los ficheros no pueden ser renombrados. Hay que copiarlos con otro 
nombre. 

5. Cuando borramos un fichero por error, éste no se puede volver a recupe- 
rar. Esta función suele existir en los sistemas de disco y resulta ser muy 
útil en casos de “desastres”. 


La ampliación de BASIC diseñada trata de paliar la mayoría de estas deficien- 
cias, dejando puertas abiertas al programador con iniciativas. 

El primer comando añadido nos permite evitar el acceso secuencial a un 
fichero (punto 1). 

Su sintaxis es: 


READ+ Canal , Registro ; A$ 


y su función es leer un registro a mitad del fichero y almacenarlo en la variable 
de caracteres A$. El número del registro lo especifica el usuario en la variable 
registro, que deberá contener un valor desde O para el primero hasta el número 
de registros que posee el fichero menos 1. El fichero está especificado por el canal 
lógico (Canal) al que está asignado. 

Los ficheros están descompuestos en el cartridge en registros siempre de la 
misma longitud (512 bytes), aunque con este comando leeremos solamente los N 
primeros caracteres de ese registro, siendo n la dimensión de la variable AS. 


Así pues, si diseñamos un fichero en que cada dato ocupa 128 caracteres 
(contando el carácter ENTER(13), incluido automáticamente cada vez que ejecuta- 
mos un PRINT4F que no acabe en el carácter “*;”), y una vez creado el fichero 
deseamos acceder al dato N-esimo, deberíamos programar: 


DIM A$(512) 


L=128:REM LONGITUD DEL REGISTRO 
OPENH8, "M"513 "FICHERO" 

INPUT "MUMERO DEL DATO DESEADO (Primero=9)";¡N 
SECTOR=INT (N/ (512/L)) : R=N-4XINT (N/ (512/L)) 
READW8, SECTOR; As 

D$=AS(RÁL+1 TO LX(R+1)) 

PRINT "EL DATO "3N;" ES "3DsS 


DIM At (127) 

OPENH8; "m"515"FICHERO” 

INPUT "NUMERO DE DATOS"¡¿ND 

FOR I=i FO ND 

INPUT *DATO ?2"3BS 

A$S(1)=BS$ 

PRINTH8;A$: REM GUARDAMOS 127 CARAC. +ENTER(13) 
NEXT I 

CLOSENS 


Para que el acceso a un dato en particular sea más sencillo, conviene utilizar 
longitudes que sean potencias de dos (16, 32, 64...). 

El segundo nuevo comando permite modificar los datos almacenados a mitad 
de un fichero, su sintaxis es: 


RESTORE + Canal , SECTOR ; A$ 


que reescribe el sector con el contenido de la variable de la cadena AS. 

Se suele utilizar después de haber leído el sector con el comando READ++, de 
forma que leamos AS, la modifiquemos y la volvamos a escribir. 

El tercer comando del MICRO BASIC intenta paliar la imposibilidad de 
añadir nuevos datos a un fichero (punto número 3) después de haber sido cerrado. 

Es el más sencillo de utilizar, pues para añadir datos a un fichero ya cerrado 
basta con ejecutar: 


19 OPENHS, "m”"315"FICHERO* 


29 NEXTH8B 


el fichero estará listo entonces para recibir nuevos datos con la sentencia 
PRINT +8. Los nuevos datos serán guardados después del último existente. 

Por último, se incluye un comando de acceso directo a un sector del cartridge 
indicando sólo su número. Su sintaxis es: 


IN 4 CANAL , SECTOR ; AS ” 


El canal debe ser abierto previamente con un nombre de fichero inexistente, y 
además, después de ser utilizado el comando IN+F, conviene ejecutar la sentencia 
CLEAR +, que borra el canal físico sin escribir, de hecho, el nuevo fichero, que 
seguirá siendo inexistente. 

En este comando el contenido de A$ no son los datos del sector, sino el 
contenido del canal físico una vez leído este sector. 

Esto significa que el elemento 1 de la variable A$ contendrá, una vez ejecutado 
el comando, el primer byte del canal físico (primer byte de SUBESC referido en el 
punto 4.2). 

Así pues, aunque este comando no ayude a la solución de los inconvenientes 4 
y 5, sí deja una puerta abierta a la investigación particular del contenido del 
cartridge. 

El resto de comandos de la expansión de BASIC están dedicados a la ayuda 
del usuario en las tareas de programación, buscando en cada comando añadido 
dos características fundamentales: 


a) Utilidad inmediata. 
b) Demostración de las posibilidades reales del Spectrum enfocadas intencio- 
nadamente al aprendizaje de la manera en que pueden ser utilizadas. 


Por esto, nuestra intención es mostrar no un sistema cerrado, sino un ejemplo 
de cómo se puede personalizar el microordenador para que atienda a nuestras 
necesidades específicas. 

Vamos a pasar, pues, a la explicación del programa en ensamblador, que 
constituye la ampliación MicroBASIC. 


Programa 
MicroBASIC 


La longitud total del programa es de 2075 bytes, por lo que ensamblaremos el 
código máquina a partir de la dirección 63292 ($F73C), de tal manera que ocupe 
una zona por encima del límite de la memoria del usuario (RAMTOP) y sin llegar 
a sobreescribir la zona reservada para la definición de caracteres gráficos 
(65368 = USR“a” =$FF58). 


ORG F23C ¿¡Comienzo=63292 
Aprovecharemos 2 variables del sistema normalmente inutilizadas. 


1989 VARYg1 Equ  5Cc81 ¡Variables donde almacenare- 
9999 VARY2 EQU  5CB9Y jmos datos temporalmente. 


Nota.—De ahora en adelante todos los números que aparezcan serán exadeci- 
males, excepto aquellos que aparezcan precedidos por un signo +, que serán 
decimales. 


5.1 
y Punto de entrada 


Como explicamos en el capitulo 1, basta con modificar el contenido de la 
variable VECTOR y almacenar en ella la dirección del comienzo de nuestra 
subrutina para que se nos ceda el control cada vez que ocurra un error de 
sintaxis. 
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5.2 


El estado del sistema, cuando se nos transfiere el control, es: 


— El registro A contiene el código del error producido menos uno (sin interés 
para nosotros). 

—La variable CHRADD($5C5D=23645) apunta a la posición anterior al 
carácter que ha originado el error. dl 

— La memoria ROM activa es la número dos, por lo que si deseamos llamar 
a una subrutina en la ROM1 debemos utilizar para ello la introducción 
RST $10 seguida de la dirección de comienzo de la subrutina en la ROM1. 


En nuestro caso, deberemos introducir el número F73C en la variable VEC- 
TOR cada vez que carguemos el programa (esto es lo que realiza el programa 
RUN que se facilita). 


F73C D? EXTEN RST 19 ¡Llamada a la rutina GETCHD 
F73D 18 99 DEFYW 9318 jen la ROM 1 que se encarga 
de avanzar el apuntador CHADD y de cargar el acumulador con el 
byte apuntado. Este ultimo contiene el codigo del caracter que 
ha producido el error. 


Una vez ejecutada la subrutina, vuelve a activarse automáticamente la ROM2. 


F?73F 22 81 3€ LD (VARY1),HL ¿Salvamos HL que despues 
de la subrutina anterior contiene lo mismo que CHADD. 
F742 GE YY LD Cc,9 jInicializamos C que conten- 


dra el numero del elemento de la tabla de comandos que 
coresponda al comando buscado. 


F744 21 4D F?7 LD HL,STAB ¡HL apunta a tabla sintaxis. 
F747 C3 E6 F7 JP OTROCOM ¡Saltar la tabla. 
F74A C3 D8 FD VECIN JP INTER ¡Utilizado posteriormente. 


Revisión de la sintaxis de los nuevos comandos 


Aunque la sintaxis de cada comando puede tratarse por separado, hemos 
tratado de efectuar la revisión de sintaxis de una forma conjunta y estructurada. 
Se ha construido una tabla en la que se incluye la sintaxis de cada comando tal 
como aparecerá después en el programa. Cada comando va separado por una 
marca, que consiste en un byte escogido arbitrariamente (AO). 

En el caso de que necesitemos añadir un nuevo comando debemos escribir su 
sintaxis después del último byte (AO). Se le añade posteriormente otro byte AO y, 
por último, se escribe un byte FF que señala el final de la tabla. Se han dejado 
libres 8 bytes, a partir de la dirección “LIBRE”, para que el lector pueda incluir 
algún nuevo comando sin tener que reensamblar todo el programa. 


F74D E3 STAB TXT CODE("READ") 
F74E AY DEFB AS 


F74F ES TXT CODE("RESTORE”) 


F759 AS DEFB AD 

F7S1 BF TXT CODE("IN”) 

F752 AS DEFB Ag 

F7S3 F3 TXT  CODE("NEXT") 

F759 AY DEFB ng 

F755 2E 4F 43E TXT  ".ONERROR: "+CODE ("GOTO") 


F758 45 352 52 
F7SB 4F 52 3A 


F?75E EC 
F73F AS DEFB AS 
F769 2E 4F 46 TXT  ”.OFFERROR:" 


F763 46 45 52 
F766 52 4F 52 


F769 AS DEFB AS 
F76A 2E 52 45 TXT — ".REN” 

F76D 4E 

F76E AS DEFB AG 

F76F 2E 4E 45 TXT  ".NEW" 

F772 5> 

F773 AS DEFB A9 

F774 2E 54 52 TXT ".TRF" 

F377 46 

F778 AY DEFB Ag 

F779 2E 44 45 TXT ".DEL*” 

F77C 40 

F77D Ag DEFB Ag 

F77E 2E 46 4E TXT ".FND" 

F781 44 

F782 AS DEFB AS 

F783 2E 43 48 TXT  ".CHA" 

F786 41 

F787 AY DEFB AS 

F788 2E 41 4F TXT  ".AOF" 

F78B 46 

F78C Ag DEFB AS 

F78D 2E 41 4F TXT  ".AON” 

F799 4E 

F791 AS DEFB Ag 

F792 AA TXT  CODE("SCREENS$”) 

F793 AY DEFB AS 

F794 C3 TXT CODE("NOT") ¿En la tecla que con- 
F795 AS DEFB Ag ¡tiene (SAVE) 
F796 2D TXT  CODE("-") A " (LOAD) 
F797 AS DEFB Ag 

F798 3C TXT  CODE("<") ; " (VERIFY) 
F799 AS DEFB Ag 

F79A 3E TXT CODE(">”") ; ” (MERGE) 
F79B AS DEFB Ag 

F79C 26 TXT CODE("2”) ; "» (MOVE) 
F79D AS DEFB AS 

F79E 27 TXT  CODE("*") ; " (ERASE) 
F79F AY DEFB Ag 

F7A9 SF TXT CODE("_") ; " (FORMAT) 
F7A1 AG DEFB Ag 

F7A2 24 TXT CODE("%$”) ; " — (OPENH) 
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F7A3 
F7A4 
F7AS 
F7AS 
F7AB 


Ag 
FF 
ga 
99 
gu 


gg yy 
gy ga 
09 


DEFB 


Ag 


FINSTAB FF 
9999998094) Bytes libres 


LIBRE 


¡Marca de fin de tabla. 


s 
La segunda tabla contiene las direcciones de las subrutinas que ejecutarán 
cada uno de los comandos anteriores. Los comandos deben estar estrictamente en 
el mismo orden que en la tabla de sintaxis. En este caso no existe marca de fin de 


tabla, pues no es necesaria. 


F7AD 
F7AF 
F>B1 
F7B3 
F7BS 
F7B7 
F7B9 
F7BB 
F7BD 
F7BF 
F?C1 
F7C3 
F7CS 
F7C7 


F7C9 
F7CB 


F7CD 
F7CF 
F7D1 
F7D3 
F7DS 
F7D7 
F7D9 


39 
39 
39 
23 
41 
29 
DA 
32 
9F 
DA 
A? 
B8 
AA 
BB 


6D 
FS 


F4 
Fe 
FC 
g6 
SA 
SE 
18 


FS 
Fe 
Fe 
Fe 
FO 
FA 
FA 
FA 
FA 
FA 
FC 
FC 
FD 
FD 


FE 
FE 


FE 
FE 
FE 
FF 
FF 
FF 
FF 


RTAB 


COMM 
comn 
Comm 
NEXTS 
RONER 
OFFER 
RREN 
RNEW 
RTR 
RREN 
RFND 
RCHA 
RAOF 
RAON 


RCoPY 
RSAVE 


RLOAD 
RVERY 
RMERG 
RMOVE 
RERAS 
RFORM 


FINRTAB ROPEN 


Se dejan 4 bytes libres para poder incluir dos nuevos comandos sin tener que 
reensamblar todo el programa. Conviene, para ello, localizar las subrutinas de 
ejecución de los nuevos comandos en una zona anterior al comienzo de este 
programa. 


F7DB 99 99 90 RLIBRE Y 9 


F7DE 


gu 


g9 


La siguiente rutina sirve para avanzar el apuntador CHADD y cargar el 
acumulador Á con el siguiente carácter de la sentencia que estamos analizando. 


F7DF 
F7ES 
F7E1 
F7E2 
F7E4 
F7ES 
F7E6 


c5 
ES 
D7? 
29 
El 
Cc1 
46 


sg 


OTHER 


OTHCHM 


PUSH BC 
PUSH HL 
RST 19 
9029 

POP HL 
POP BC 
LD B, (HL) 


¡Salvar BC en el stack 
¡Salvar tambien HL 
¡Llamada a la subrutina 
¿la ROM1 NEXT-CHAR. 
¡Restauramos HL 

y BC. 

¿¡Cargamos B con un byte 


F?7E7 B8 CP B jla tabla STAB y lo 
¡comparamos con Á. 

F7E8 28 1E JR Z MAT1 ¿¡Saltamos si coinciden. 

F7EA 47 LD B,A ¡B=Caracter de la sentencia. 

F7EB 23 HMAT1 INC HL ¿Incremento indice. 

F7EC YE LD A, (HL) ¡A=Siguiente byte en STAB. 

F7ED FE FF cP EF ¡Es el ultimo? 

F?7EF 28 14 JR Z TABER ¡Saltar si lo es. 

F7F1 FE AS CP AY ¿Es final de comando ?. 

F7F3 29 F6 JR NZ NMAT1 ¡Saltar si no lo es. 

FIFS 23 INC HL ¡Incrementar el indice. 

F7Fé6 78 LD A,B ¡A=Caracter de la sentencia. 

FZF? ES FUSH HL ¡Salvar HL 

F7F8 2A 81 5€ LD HL, (VAR£1) ¿¡Re-escribir CHADD con el 

F7FRB 22 5D 30 LD (5C5D),HL ¡valor inicial. 

FZFE D? RST 19 ¡Cargar Á con el byte 

F7FF 18 49 3918 japuntado por CHADD . 

Feag1 El POP HL ¡Recuperar HL. 

Feg2 ec INC C ¿Incrementar el comando. 

F893 18 El JR OTHCM jrepetir el proceso. 

F295 C3 F9 91 TABER JP Y1F9 ¡Salida imprimiendo error. 

Fegg 47 MAT1 LD B,A ¡Salvar A en B. 

F899 23 INC HL ¡Incrementar apuntador 

F8gA 7E LD A, (HL) ¿Cargar siguiente byte STAB. 

F89B FE AL CP A ¡Es final de comando ? 

F89D 28 92 JR Z FOUND ¡Si lo es, hemcs encontrado 
jun comando. 

F8g9F 18 CE JR OTHER ¿Si no, comparar con otro. 

Feli 79 FOUND LD A,C ¡Cargar A con el numero de 

F812 21 AD F> LD HL,RTAB ¿comando y apuntamos HL al 
primer byte de RTAB. 

F815 CB 21 SLA C ¿Multiplicar C por dos. 

F817 59 LD E,C ¡Formar en HL un apuntador 

Fe8a18 16 gu LD D,9 ja la direccion donde se 

F81A 19 ADD HL,DE ¿guarda el comando en RTAB. 

F81B SE LD E, (HL) ¿Cargar DE con el elemento 

F81c 23 INC HL ¡de la tabla RTAB que 

F81D 56 LD D, (HL) ¡corresponde al comando. 

F81E EB EX DE, HL ¡HL=subrutina del comando. 

F81F 32 BG 5€ LD (VARO2),A ¡Guardar el codigo del 
jcomando en VAR2.(9Y a +22) 

F822 E9 JP (HL) ¡Ejecutar el comando. 


5.3 
Nuevos comandos para el microdrive 


Una vez encontrado el comando, existe una rutina distinta para casi todos 
ellos, donde se verifica la sintaxis de los argumentos. En este apartado veremos las 
rutinas referidas a los comandos: 


— NEXT + Canal. 

—READ+ Canal , Sector ; AS. 

— RESTORE++ Canal , Sector ; AS. 
— IN+F Canal , Sector ; AS. 
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Los tres últimos tienen los mismos argumentos, por lo que se procesarán en 


una subrutina común llamada COMM. 
Pasemos a ver la sintaxis del argumento del comando NEXT+F: 


F823 pD7 NEXTS RST 19 ¡Obtener en A ely siguiente 
Fe24 24 £9 9929 ¡caracter de la sentencia. 
F826 FE 23 CcP "n” ¡Es igual a "MN" ? 

Fe2e 29 24 JR NZ ROMERP ¡Saltar si no es. 

Fe82A D7 RST 19 ¡Obtener en A el siguiente 
F82B 29 399 9929 ¡caracter. 

Fe2D D? RST 19 ¡Llamar a la subrutina de la 
F82E 82 1C 1Cc82 ¡ROM1 EXPTHNUM que examina 
los caracteres apuntados por CHADD y si constituyen una 
expresior numerica, la calcula y almacena su valor en el STACK 
del calculedor aritmetico. En el caso de que la expresion no 


correspodíere a un numero o una variable numerica esta subrutina 


generaria el errcr. 


Fe3a 


nos encontremos en tiempo de edicion 
encontramos ejecutando una sentencia, 


F833 


CD 


D> 


B> e 


F834 65 F8 


F836 C3 C1 Y5 
interprete urna vez terminado el comando. 


Comenzamos ahora la revisión de los parámetros de READ,RESTORE e IN. 


F839 
F83A 
F83c 
F83E 
F849g 
F841 
F843 
F844 
Fes6 
Fee 
F84A 
F84B 
F8ac 
F84D 
Fe8aF 
F85g 
F852 
Fe5a4 
F856 
F857 
F859 
F85A 
Fesc 


ec 
CD 


estamos 
ejecucion. 


FesF 


D? 


Comm 
gy 
23 
gA 


gg 


1c 
2C 
2 
ROMERR 


RI 
gy 


1c 
3B 
Fa 


ga 
1c 


B7 45 


en tiempo 


RUNRE 


Feé6g pc Fe 
F862 C3 C1 5 
interprete de la ROM1 una vez finalizada la ejecucion. 


CALL 95B7 


RST 19 
NEXTR 


JP Y95C1 


RST 19 
90829 

o 

JR NZ ROMERR 
RST 19 
gu2a 

RST 18 
1Cc82 
ERA 

JR Z R1 
RST 29 

NOP 

RST 19 
9929 

RST 19 
1c82 

CcP*3 1 

JR NZ ROMERR 
RST 18 
0829 

RST 19 
1c8ec 

CALL $5B? 
de edicion 


RST 19 
OLDR 
JP Y5C1 


¡Volver al interprete cuando 
de una linea Basic. Si nos 
simplemente continuar. 


¡Llamar a la rutina NEXTR 
¡que ejecuta NEXTHR$ con la 
¡ROMí paginada. 

¡Devolver control al 


jA=siguiente byte de la 
j¡sentencia. 

¡Es igual a "*N" ? 

¡Saltar si no es. 
jA=siguiente byte de la 
j¡sentencia. 

¡Buscar una expresion 


jy almacenarla en el STACK. 
¡El siguiente byte es ”,” ? 


¡Salta si lo es. 

¡Generar un error de 
jsintaxis. 

¡A=Siguiente byte de la 
jsentencia. 

¡Encontrar una expresion 


jy almacenarla en el STACK. 
¡El siguiente byte es *";”" ? 
¡Saltar si no lo es. 
¡A=Siguiente byte 


¡Encontrar una expresion 
jalfanumerica y almacenarla. 


¡Devolver el control si 
y continuar si estamos en 

¡Ejecutar la rutina con la 

¡ROMí paginada. 

¡Devover el control al 


Vamos a comenzar con las subrutinas que realmente ejecutan los comandos 
del microdrive comenzando con NEXT. 


Fe65 Do? NEXTR EXX ¡Conviene salvar siempre el 
Fe66 ES PUSH HL ¡registro HL”? en el STACK. 
F2867 D9 EXX ¡Ver si el valor de Canal 
F968 CD 2F F9 CALL CCHA jesta permitido y saltar en 
F86B 28 4 JR Z VALID jel caso afirmativo. 

F86D Do EXX ¡En caso negativo recuperar 
F86E El POP HL ¡HL”? y terminar. 

F86F D9 EXX 

F879 C9 RET 

F871 AF VALID XOR A ¡A=record=9 

F872 18 94 JR RECO ¡Buscar el record Y. 

F874 DD 7E 9D FIND LD A, (1X+13) ¿Incrementar el record para 
F8>?7 3C INC A ¡buscar el suguiente. 

F878 DD 77 9D RECO LD (IX+13),A ¡Actualizar CHBYTm 

F87B CF RST 8 ¡Lectura del registro dentro 
F87c 27 27 ¿del fichero. 

F8?7D DD 7E 43 LD A, (1X+67) ¡Es el ultimo registro del 
F88g CB 34F BIT 1,4 ¿fichero ? 

Fes2 28 F9 JR Z FIND j¡Satar si no lo es. 

F88g4 AF XOR A ¡Parar el motor del 
Fees cF RST 8 ¿jmicrodrive. 

Fe8gé6 21 21 5 

F887 FB El jDesinhibir la interrupcion 
F8gg8 DD 7E YD LD A, (1X+13) jA=record actual 

F88B FS PUSH AF jSalvarlo en el stack. 

Feec 3E FF LD A,FF ¡Hacer el fichero abierto 
F88E DD 77 18 LD (1X+294),A ¡para escritura. 

F891 DD 7E 45 LD A, (1X+69) ¡Copiar la longitud del 
F891 DD 77 SB LD (1X+11),A4 ¡record de RECLEN a la 
F897 DD E 46 LD A, (1X+79) ¡variable CHBYTE. 

F89A DD 77 £C LD (1X+12),A 5 

F89D AF XOR A ¡Limpiar las sedales que 
F89E DD 77 43 LD (1IX+67),A ¡tenia este sector de que 
F8A1 DD 77 45 LD (1X+69),A ¡era el ultimo del fichero. 
F8As DD 77 46 LD (1X+78),A 5 

F8A7 DD 7E 29 LD A, (1X+491) ¿Copiar el numero de 
F8AA DD >? £D LD (1X+13),A ¡registro dentro del ficher. 
F8AD 3E 91 LD A,1 ¡Encender el motor de 
F8AF CF RsT 8 ¿imicrodrive 1. 

FeB9 21 21 5 

F8B1 CF RST 8 ¡Efectuar una escritura en 
F8B2 2A 2A jacceso directo. 

F8B3 AF XOR A ¡Parar el motor del 
F8eB4 CF RST 8 jmicrodrive 1. 

F8BS 21 22 5 

F8B6ó F1 POP AF ¡Recuperar el numero de 
F8B7 DD 77 9D LD (IX+13),A ¡registro y almacenarlo en 
F8BA 18 43 JR EXIT ¡CHREC. Salir de la rutina. 
F8Bc D9 OLDR EXX ¡Salvar el registro HL” 

F8BD ES PUSH HL ; 

F9BE D9 EXX ; 

FeBF CD Fi 2B CALL 2BF1 ¡Esta subrutina recoge la 


ultima,variable del stack. En este caso, la variable corresponde 
a la cadena A$ por lo que los parametros de salida seran! 
- BC contendra la longitud de la cadena (La misma que DIM A%) 
- DE contendra la direccion dentro de la zona de variables 
donde esta 3uerdado el primer caracter de la cadena. 


F8c2 CS PUSH BC ¡Salvar la longitud. 
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Fec3 


D5 


F8C4 CD 94 1E 


recupera el ultimo valor del stack,pero esta vez 
como un numero en cora flotante y lo convierte a un entero 


valor guarda en A. 


Fec? 
Fece 
FecB 
F8ecD 
FecE 
F8D1 
F8pa 
F8Dé 
Fee 
F8DA 
F8DB 
F8Dc 
F8DD 
F8DE 
F8E9 
F8E1 
F8E2 
F8E4 
F8ES 
F8ES 
Fee? 
F8E9 
F8EA 
F8ED 
FB8EE 
F8EF 
Ferg 
F8F3 
F8FS 
FeF7 
FeF9 
FSFB 
FeFD 
FSFE 
F999 
F991 
F9Y4 
F997 
998 
F999 
FIBA 
F9Y9B 
Foc 
F99E 
F919 
F913 
F916 
F919 
F91R 
F91c 
F91D 
F91E 
F91F 
F929 
F921 
F922 
F923 
F925 


FS 
CD 
29 
Fi 
DD 
3A 
FE 
29 
3E 
cF 
21 
cF 
22 
19 
cF 
27 
3E 
cF 
21 
FB 
DD 
El 
11 
9 
D! 
c1 
3A 
FE 
2e 
FE 
29 


DD ! 


El 

En 
AF 
DD 
DD 
Do 
El 

Do 
c9 
EB 
ED 
E 
DD 
DD 
DD 
TE 
ce 
21 

cF 
2A 
AF 
cF 
21 
FB 
3E 


2F 
5D 


E 
rg 
g2 
28 
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g2 


ga 


ES 


BO 
FF 
>7 
7E 
77 
91 


FE 


Eo 


£D 
sc 


ga 


SB 
£c 


12 
2%. 
2D 


DD 77 18 


SELRE 


STPM 


TRANF 


EXIT 


RSTOR 


PUSH DE 
CALL 1E94 


PUSH AF 
CALL CCHA 

IR NZ MOMIC 
POP AF 

LD (1X+13),A 
LD A, (VARG82) 
cp 2 

JR NZ SELRE 
LD A,1 

RST 8 

21 

RST 8 

28 

JR STPM 

RsT 8 

27 

LD A,S 

RST e 

21 

El 

PUSH IX 

POP HL 

LD DE,52 

ADD HL, DE 
POP DE 

POP BC 

LD A, (VARAZ2) 
cP 1 

JR Z RSTOR 
cr 2 

JR NZ TRANF 
PUSH IX 

POP HL 

LDIR 

XOR A 

LD (IX+11),A 
LD (1IX+12),A 
EXX 

POP HL 

EXX 

RET 

EX DE,HL 
LDIR 

LD A,FF 

LD (1X424),A 
LD A, (1X+41) 
LD (1X+13),A 
LD A,1 

RST 8 

21 

RST 2 

2A 

XOR A 

RST 8 

21 

El 

LD A,FE 

LD (1X+24),A 


¡Salvar el comienzo. 
¡Esta subrutina 
lo 


tambien 
interpreta 
cuyo 


El valor corresponde al argumento Sector. 


¡Salvar el valor del sector. 
¡Hacer A el canal actual. 
¡Saltar si no es de Microdr. 
¡Recuperar el sector. 
¡guardarlo en CHREC. 
¡Recuperar el codigo de 
¿comando y distinguir entre 
¿los tres.Saltar si no INH. 
¡Encender motor unidad 1 


¡Leer sector especificado 
jpor CHREC. 

¡Saltar a rutina de paro. 
¡Leer sector en caso de 


¡READH y RESTOREH 
¡Parar el motor. 


¿¡Desinhibir la interrupcion. 


¿Apuntar HL al comienzo del 
¡canal fisico. 
¿Apuntar a la zona de datos 


¿dentro del canal. 
¡Recuperar la longitud y 
¡comienzo de la cadena At. 


¿Distinguir el comando para 
¡fijar el sentido del 
jtrasvase. Saltar si RESTORE 
¡Es el comando INH ?. 
¿Saltar si no lo es. 
¿Si lo es, HL se apunta al 


¡comienzo del canal fisico. 
¡Se ejecuta el trasvase. 


¡Se pone a Y el contador de 
¡bytes CHBYTE. 

; 

¡Recuperar HL?” antes de 
¡salir de la subrutina. 
¡Salida de la subrutina. 
¡Para RESTORE cambiar el 
¿sentido del trasvase. 
¡Cambiar el canal a 
jescritura permitida. 
¡Copiar el numero de sector 
ja CHREC. 

¡Encender el motor de la 
junidad 1. 

5 

¡Leer en acceso directo el 
¿sector CHREC. 

¡Parar el motor del 


j¡microdrive. 

; 

¿Desinhibir la interrupcion. 
¡Cambiar el canal a lectura 


permitida. 


F928 18 DD JR EXIT ¡Saltar a rutina de salida. 


F9ZA Fl NOMIC POP AF ¡Salida de la subrutina en 
F92B D1 POP DE jel caso de que el canal no 
F92C Cil POP BC ¡sea de microdrive. 

F92D 18 D8 JR EXIT 5 

F92F CD 94 1E CCHA CALL 1E94 ¡Recuperar del Stack el 
F932 CD Y1 16 CALL 1691 ¡Canal y hacerlo el actual. 
F935 2A 51 5C LD HL, (5051) ¿Apuntar IX al comienzo del 
F938 ES PUSH HL ¡canal fisico. 

F939 DD El POP IX 5 

F93B DD 7?7E 94 LD A, (1X+4) ¡El cuarto byte del canal 
F93E FE 4D CP 4D jes el identificador de 
F949 C9 RET ¿¡Microdrive?. Respuesta en F 
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Recuperación de errores 


El comando ON ERROR suele ser estándar en la mayoría de los intérpretes 
BASIC actuales. Suele ser muy útil cuando utilizamos variables cuyos valores se 
pueden salir de límites imprevistamente o incluso al dibujar gráficas de funciones 
que poseen punto fuera de la pantalla. 

En estos casos, se puede continuar con la ejecución del programa ignorando 
los errores referentes a esta salida de límites. 

En esta subrutina hemos incluido una serie de llamadas al intérprete de la 
ROM1 que nos permiten buscar, modificar e incluso crear nuevas variables 
BASIC desde un programa en código máquina, por lo que consideramos conve- 
niente una atención especial. 


F941 D7 RONER RST 19 ¡Recoger el siguiente byte 
F942 29 99 8028 ¡de la sentencia analizada. 
F944 D7 RST 16 ¡Analizar la expresion 
F945 22 1C 1c22 ¡numerica y almacenarla. 
F997 CD 97 AS CALL 95B7 ¡Salir en tiempo de edicion 
F94A 2A 2D SC LD HL, (5SC3D) ¡Apuntar HL al lugar donde 
F94D $1 D£ FO LD .PC,ERROR jel sistema guarda la 
F9S59 721 LD (HL),C ¿direccion de la subrutina 
FIS1, 23 INC HL ¿de error y guardar alli la 
F952 78 LD (HL),B ¡direccion de la nuestra. 
F953 D? RST 10 ¡Sacar del stack el ultimo 
F954 99 1€ 1E99 ¿valor y guardarlo como un 
F956 ED 43 CC LD (LENTR),BC ¡entero en LENTR. 

F959 FO ; 

F9SA 21 CE FO LD HL,ERL ¡Veamos si la variable ERL 
F9S5D D7 RST 18 jexiste y si existe pasar al 
F9SE 79 F9 VARLK jexamen de la variable ERN 
F968 30 6 JR NC VARNX ¿saltando a VARNX. 

F962 21 CE F9 LD HL,ERL ¿Si no existe, la creamos en 
F965 CN. 92 F9 CALL CRVAR jla rutina CRVAR. 

F968 21 D2 F? VARNX LD HL,ERN ¡Veamos si existe la 
F96B D? RST 19 ¡variable ERN y en caso 
F96C 79 F9 VARLK jafirmativo saltemos a la 
F9€€ 29 M€ JR NC VAREX ¿rutina VAREX. 

F978 21 D2 F9 LD HL,ERN ¡Si no existe, la creamos 
F973 CD 92 F9 CALL CRVAR jen la rutina CRVAR. 
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F976 C3 C1 85 VAPEX JP Y5C1 ¡Rutina de salida al interp. 
F979 ES VARLK PUSH HL jFutina de busqueda de 
F97A 2A 5D SC LD HL, (5C5D) jvariable. HL=(CHADD) 

F97D 22 81 5C LD (VARS1),HL ¿Copiar a VAR91, HL. 

F98g El POP HL ¡Recuperar HL. 

F981 22 S5n 5 LD (5205D),HL.” ¡Carga (CHADD) con ERL o ERN 
F984 CN B2 28 CALL 28B2 ¡Esta rutina busca en la 
zona de variables vna cuyo nombre coincida con elY que esta 
apuntado por (CHADD). 

FO97 FS PUSH AF ¿¡Salvamos el resultado de la 
F983 ES PUSH HL jbusqueda. 

F989 2A 81 5€ LD HL, (VARS1) ¡Recuperamos el antiguo 
F98c 22 5D SC LD (SC5D),HL ¿valor de (CHADD) 

F99F El POP HL j¡Recuperamos el resultado de 
F999 F1 POP AF ¿la busqueda. 

F991 C9 RET ¡Salida de rutina busqueda. 
F992 CD C3 F9 CRYUAR CALL VARCO ¿Copiar la variable. 

F99S JE 9 LD A,g ¡A=9 

F997 D7? RST 19 ¡Almacenar el Y en el stack 
F998 28 2D 2D28 jen coma flotante. 

F99A 3A 71 5C LD A, (5071) ¡Seralamos en el bit 1 de 
F99D CB CF SET 1,A ¡FLAGX que la variable ya 
F99F 32 71 5C LD (5C71),A jexiste. 

F9A2 21 99 5P LD HL,5B99 ¡Cargar DEST con el 
F9AS 22 4D SC LD (5C4D),HL ¡apuntador a su nombre. 
F9N8 D? RST 193 ¡Ejecutar la rutina LET de 
F9A9 FF 2A 2APF ¡BASIC. 

F9AB C9 RET ; 


La siguiente subrutina será llamada varias veces cuando ocurra un error para 
asignar valores de número de línea de error a la variable ERL y de número de 
error a la variable ERN. Para utilizarla basta con apuntar HL al comienzo del 
nombre de la variable y dejar en el stack del calculador el valor, en coma flotante, 
que le queremos dar. De hecho, esta subrutina da el mismo resultado que la 
sentencia LET de BASIC. 


F9AC ES VARLT PUSH HL ¿Salvar el apuntador al 
¿nombre de la variable. 

F9AD CD C3 F9 CALL VARCO ¿Copiar el nombre a 5B09 
FORY El POP HL ¡Recuperar el apuntador. 
F9B1 CD 79 F9 CALL VARLK ¡Encontrar la variable. 
F9B4 22 4D SC LD (5C4D),HL ¡DEST=Apuntador al nombre. 
F9B7 3A 71 3C LD A, (5071) ¿¡SeMalar en FLAGX que la 
FOBA CP 8F RES 1,4 jvariable ya existe, 
F9BC. 32 71, SC LD (S5C71),A 
F9BF CD FF 2A CALL 2AFF ¡Ejecutar la rutina LET. 
F9C2 C9 RET ; 
F9C3 11 £9 5B VARCO LD DE,5B9g ¡Rutina de copia a la 
F9C6 61 Y4 S£ LD BC,4 ¡direccion 5B9Y (libre). 
F9C9 ED BG LDIR ; 
F9CB C9 RET ¡Lugar donde se guarda el 
F9CC 9 ea LENTR gg ¡parametro de ON ERROR: GOTO. 
F9CE 45 52 40 EPRL TXT "ERL* ¡Nombre de las variables 
F9D1 SE SE jque se crean en este 
F9D2 45 52 4E ERN TXT "ERN” jcomando. 
F9DS £E gE 3 

La siguiente rutina es la que se ejecuta cuando ocurre un error. Esta activa la 


ROM1. 
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F9Dé 
F9D9 
F9DB 
F9DD 
F9DF 


3A 
FE 
28 
FE 
28 


3A 50 ERROR 
FF 
3F 
ac 
3B 


LD A, (S5C3A) 
CcP FF 
JR Z NOERR 
cP gc 
JR Z NOERR 


jA=codigo del error. 


¡Si es tfinal de programa, 
¿no hay error, luego salir. 
¡Si se produce un BREAK en 


jel SCROLL, salir. 


Nota.—Si deseamos proteger un programa para que no se pueda parar con 
BREAK, o si deseamos que cuando se pulse este comando el programa salte a 
una línea, podemos quitar la comparación con 0C y con 14; la ejecución de 
BREAK se tratará entonces como un error normal y producirá un salto a la línea 
especificada en el comando ON ERROR. Basta con analizar el número de error y, 
si éste coincide con el 21 (L BREAK into program), ejecutar la función deseada. 


F9E1 
F9E3 
F9ES 
F9E7 
F9E9 
F9EC 
F9ED 
F9EE 
F9F1 


F9F2 
F9FS 
F9F8 
FOFE 
F9FC 
F9FF 
FAg2 
FA93 
FAg4 
FA97 
FAGA 
FASD 
FA1g 
FA1L3 
FA16 
FA19 
FA1C 
FAIF 


Dé F9 


3A 5 


243 13 NOERR 


cP 8 

JR Z NOERR 
CP +29 

JR Z NOERR 
LD HL, ERROR 
PUSH HL 
PUSH AF 

LD A, (5C3A) 
INC A 


CALL 2D7e 
LD HL,ERN 
CALL VARLT 
POP AF 

LD HL, (5045) 
LD (5049) ,HL 
PUSH HL 

POP BC 

CALL 2D2B 

LD HL,ERL 
CALL VARLT 
LD HL, 9999 
LD (5044),HL 
LD HL, (LENTR) 
LD (5042),HL 
JP 1B9E 

JP 1393 


¡Tampoco dar error cuando se 
¡ejecute STOP. 

¡No es error cuando se pulsa 
¡ BREAK. 
¡Cargar de 
japuntador de error 
¡nuestra subrutina. 
¡A=numero de error acaecido. 
jIncrementarlo para que 
¿coincida con el de Basic. 
¡Guardar su valor en el 
¡stack y ejecutar LET ERN= a 
jese numero. 

¡Averiguar la linea que 
¿provoco el error, guardar 
jsu numero en el stack y con 
¡LET asignarle el valor 
¡correspondiente a ERL. 


5 

; 

¡Limpiar el numero de 
jestamento dentro de una 
¿linea y guardar la linea a 
jla que se debesaltar en 
¡MENPPC. Dar control a Basic 
jPutina de salida cuando el 
jerror detiene al programa. 


nuevo el 
con 


Comando para anular el ON ERROR. Simplemente deja la rutina normal de 
error en lugar de la nuestra, en la dirección donde la suele guardar el sistema. 


FA29 
FA21 
FA23 
FA26 
FA29 
FAZ2C 
FA2D 
FAZE 
FA2F 


D7 
29 


OFFER 
ga 


CD. B7 85 


2A 
g1 
71 
23 
7% 
c3 


3D 5C 
g83 13 


c1 95 


RST 18 

0829 

CALL 85B7 
LD HL, (5C3D) 
LD BC,1393 
LD (HL),C 
INC HL 

LD (HL),B 
JP 8501 


¡Avanzar CHADD. 

5 

¡Salir en tiempo de edicion 
¿Introducir de nuevo 1393 en 
¡vez de nuestra subrutina 
¡ERROR en el stack. 

3 

5 

¡Devolver el control. 
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5.5 
Utilidades para editar programas 


Para añadir nuestra extensión de BASIC, hemos tenido que modificar la varia- 
ble VECTOR. Esto lo realiza normalmente el programa de carga automática sumi- 
nistrado, pero si estamos utilizando un programa y ejecutamos un NEW para 
borrarlo, la variable VECTOR desaparece junto con todas las del Interface 1, de 
tal forma que tendríamos que crearla y volverla a modificar. Para evitarlo hemos 
incluido el comando .NEW que ejecuta la misma función que NEW, salvo que 
deja activa nuestra extensión, produciendo además un mensaje distinto al original, 
que refleja la nueva versión de BASIC. 


NUEVOS COMANDOS 


FA32 D7 24M 90 RNEW RST 19 9929 ¿Incrementar CHADD. 

FA3S5 CD B7 5 CALL M5B7 ¡Salida en edicion + 

FA38 D7 41 FA RST 19 NEW ¡Llamar la rutina .(ROM1) 
FA3B C3 5F FA RETU JP RTU (utilizado al ensamblar) 


; 
FA3JE C3 >P FA RETU JP RTU jlutilizado al ensamblar) 


Copiamos tres segmentos de la rutina NEW, de la ROMI1, en las direcciones 
donde se guardan los caracteres gráficos y los ejecutamos añadiendo previamente 
los bytes (RETU y RETV) para que nos devuelva control al finalizar. 


FAqG1 11 58 FF NEW LD DE,FFS8 ¿Direccion USR "a” 

FAG4 21 B7 11 LD HL, 11B7? ¿Direccion rutina NEW (ROM1) 
FA47 91 47 MS LD BC,9947 ¡Numero de bytes. 

FAJA ED P£ LDIR ¡Copiar primer segmento. 
FAac 21 19 12 LD HL, 1219 ¡Direccion segundo segmento. 


FA4F 
FAS2 
FAS4 
FAS? 
FASA 
FASC 
FASF 
FAS2 
FA65 
FA68 
FAGA 
FASD 
FA79 
FA72 
FA7S 
FA78e 
FA7B 
FA7D 
FA8g 
FA83 
FA8B6 
FA89 
FaAsc 
FA8D 
FA8SF 
FA92 
FA94 
FA97 
FA99 
FA9C 


Comienzo del nuevo comando .TR 


FF 


FE* 


22 
03 


FA 
ga 


FD 
FF 
FE 


F7 
sc 
FF 
3E 
99 


se 


se 


sc 
12 


RT 


RTY 


LD BC,995D 
LDIR 

LD HL,RETU 
LD BC,3 
LDIR 

JP FFS8 

LD DE,FFS2 
LD HL,1276 
LD BC,992A 
LDIR 

LD HL,RETV 
LD BC,9903 
LDIR 

LD HL,POMSG 
LD (FF?9),HL 
JP FFSS 

RST 8 31 

LD HL,EXTEN 
LD (5CB7),HL 
LD HL,FFFF 
LD DE,3EAF 
LD BC,99AS 
EX DE,HL 
LDDR 

LD A, (5C6A) 
SET 3,A 

LD (5C6A),A 
LD A,+88 

LD (SCB1),A 
JP 12A9 


cadena con la ROM2 activa. 


FA9F 
FAAZ 

FAR 

FAR6 

FAA 

FAAB 

FADD 
FAAF 
FAB2 
FAPS 
FABS 
FABA 
FABC 
FABF 
FAC2 
FACS 
FACS 
FACY 
FACC 
FACD 
FADO 
FAD2 
FADA 
FADS 
FAD? 


gy 


se 


gs 


RTR 


NOGPRE 
TRER 
FTR 


TRAF 


SENSE 


RST 18 9929 
cr ">" 

JR NZ MOGRE 
LD A,9 

LD (5CB9),A 
JR FTR 

ce ">" 

JP NZ D1F9 
RST 19 9929 
RST 14 108C 
cr ”,” 

JR NZ TRER 
RST 18 09823 
RST 16 1082 
CALL M5B7 
RST 18 1E99 
PUSH BC 

RST 18 2BF1 
POP HL 

LD A, (5CB£) 
cP 8 

JR Z SENSE 
EX DE,HL 
LDIR 

JP 9501 


¡Numero de bytes. 

¡Copiar segundo segmento. 
¡Copiar tres bytes que 
¿contienen la direccion de 
jretorno a nuestra rutina. 
¡Ejecutar primer segmento. 
Direccion USR "a". 
¡Comienzo 3 segmento en ROM1 
¡Numero de bytes. 

¡Copiar tercer segmento. 
¡Añadir 3 bytes con la 
¡direccion de retorno a 
jnuestra subrutina. 
¿Modificar instruccion para 
¿que HL apunte al mensaje. 
¡Ejecutar tercer segmento. 
¿Insertar variables Interf.1 
¡Modificar VECTOR para que 
japunte a nuestrá rutina. 
¡Copiar la definicion de los 
¡caracteres graficos desde 
jla ROM a la zona USR*"a". 


¡Activar las letras 
¡mayusculas para facilitar 
jlos nuevos comandos. 


que transfiere trozos de memoria a 


¿Incrementar CHADD. 
¡Diferenciar el sentido de 
¡la transferencia. 


.. .. .. un . 


¡Siguiente byte. 

¡Analizar una cadena AS. 

¡Es "," el siguiente byte? 
¡Si no lo es, generar error. 
¡Analizar un numero y 
jalmacenarlo en el stack 
¡Salir en tiempo de edicion 
¡Meter en BC el ultimo 
¿numero y salvarlo. 

¡DE= direccion de A$. 
¡recuperar el numero. 
¡Distinguir el sentido de la 
¡transferencia. : 

, 

¡Cambiar el sentido. 
¡Ejecutar transferencia. 
¡Devolver control. 


una 
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El siguiente comando sirve para renumerar las líneas de BASIC. El flujo 
general es el siguiente: 1) almacenar en el byte 3 y 4 de cada línea (donde se 
guarda normalmente la longitud de la línea) el nuevo número de orden de cada 
línea; 2) se busca en cada línea la aparición de un comando GOTO, GOSUB..., 
etcétera, y si la línea referida en este comando es explícita,yse le añaden ceros hasta 
que posea 4 dígitos; 3) se calcula cuál es el nuevo número de línea correspondien- 
te y se guardan sobreescribiendo los 4 ceros. 

La primera parte de la rutina, que se encarga de analizar e interpretar los dos 


argumentos, es común para los comandos .REN y .DEL. 


FADA D7 29 9% RREN RST 19 8920 ¡Avanzar CHADD. 

FADD D? 7A 1C RST 19 1C7A ¡Analizar y guardar los dos 
FAES CD B” 45 CALL 95B7 jparametros. 

FAE3 3A BY 52 LD A, (5CB9) ¡Distinguir. Comando ó=REN 
FAE6 FE 96 cP 6 ¡Comando 9=DEL 

FAE8 C2 7C FC JP NZ RDEL ¡Saltar a la rutina DEL. 
FAEB D7 F1 FA RST 19 RENUM ¡Ejecutar la rutina con la 
FAEE C3 Cl 45 JP S5C1 ¡ROM1 activa. Salir. 

FAF1 CD 99 1E RENUM CALL 1E99 ¡BC=Incremento entre lineas. 
FAF4 C5 PUSH BC ¡Salvar BC 

FAFS El POP HL ¿Copiarlo a HL 

FAFé6 22 92 S» LD (5B92),HL ¡¿Guardarlo en (5B92). 

FAF9 CD 99 1E CALL 1E99 ¡BC=Linea inicial. 

FAFC CS PUSH BC ¡Copiarlo a HL. 

FAFD El POP HL 5 

FAFE 22 93 SB LD (5B99),HL ¡Guardarlo en (5B99) 

FB91 7C LD A,H ¿Si alguno de los argumentos 
FB92 B5 OR L jes 4, devolver el control 
FB93 C8 RET Z jal interprete sin ejecutar 
FBg4 2A 92 35B LD HL, (5B92) ¿la renumeracion de lineas. 
FB97 7C LD A,H ; 

FP98 BS OR L 5 

FB99 C8 RET Z d 

FB9A 2A 53 5C LD HL, (5053) ¡HL=Direc. comienzo del PRG. 
FBO9D ED SB 99 LD DE, (5B99) ¿¡DE=incremento entre lineas. 
FB19 SB ; 

FB11 CD 78 FC MXTLN CALL CHCK ¡Saltar si hemos salido de 
FB14 39 16 JR NC FNDGT ¿la zona de programa. 

FB1é 36 LD B, (HL) ¡BC=num. de linea antiguo. 
FB17 72 LD (HL),D ¿Introducir el nuevo numero 
FB18 23 INC HL ¡de linea en los bytes 
FB19 4E LD C, (HL) jreservados para ello en 
FB1A 73 LD (HL),E ¿cada linea. 

FB1B 23 INC HL 5 

FB1C 71 LD (HL)>,C Introducir el num. de linea 
FB1D 23 INC HL jantiguo en los bytes que 
FB1E 79 LD (HL),B ¡contienen la longitud de 
FB1F 23 INC HL linea. 

FB29 ES PUSH HL ¿Incrementar el numero de 
FB21 2A 942 SB LD HL, (5B92) linea con el segundo 
FB24 19 ADD HL,DE jargumento. 

FR25 EP EX DE,HL 5 

FB2€ El POP Ht ; 

FB27 CD 65 FC CALL EOL ¡HL=Comienzo de la linea 
FP2A 18€ ES JR NXTLN jsiguiente. Continuar. 

F32C 2A 53 5C FNDGT LD HL, (5C53)  —¡¿HL=zona de programa. 

FB2F 23 INC HL ¡Saltar en cada Jinea los 
FB39 23 INC HL ¡cuatro primeros bytes que 
FPI1 23 INC HL contienen los numeros de 


FB32 
FB33 
FBIó6 
FB39 
FEA 


FB3B 


FB3D 
FB3E 
FB3F 
FB49 
FB42 
FB44 
FR45 
FB47 
F.49 
FB4B 
FBacC 
FB4D 
FB4E 
FBaF 
FBS9 
FBS1 
FBS2 
FB5S4 
FBS56 
FB5S8 
FBSA 
FBSB 
FB5D 
FBSF 
FB61 
FER62 
FB63 
FB64 
FB65 
FP67 
FR6A 
FB6B 
FB6C 
FB6D 
FB6F 
FB79 
FB71 
FB72 
FB7S 
FB78 
FB7B 
FB7E 
FR81 
FB83 
FB8£ 
FB87 
FB89 
FB8A 
FB8B 
FB8c 
FBeD 
FE9g 
FB91 
FEB92 
FB95 
FB97 
FB98 


gF FC SRCH 
DC FB 


gg 
NXTDG 


2E 
g3 

FNDMX 
EC ECNTN 
gE 
F2 


3A 
g4 
£D 
EA 
FOU 
g4 CMPR 
19 
E3 


39 
ge er 


Ec 
E£LCLT 


g9 Ya 
E8 93 
a6 FC 
64 468 
g6 FC 


g6 FC 


53 50 
FNDLN 


79 FC EOP 


INC HL 
CALL FND 
JP NC RSTR 
LD D,H 

LD E,L 

LD B,S 

INC B 

INC HL 

LD A, (HL) 
cr *”.” 

JR NZ CNTN 
EX DE, HL 
JR SRCH 

CP +14 

JR NZ NXTDG 
INC HL 

INC HL 

INC HL 

INC HL 

INC HL 

INC HL 

LD A, (HL) 
cp o*:" 

JR Z FOU 
CP +13 

JR NZ FNDNX 
LD A,B 

cP 4 

JR Z CLCLT 
JR NZ FNDNX 
PUSH DE 

LD H,D 

LD L,E 
PUSH AF 

LD A,”"g" 
CALL 6Fes 
POP AF 

INC A 

POP DE 

JR CMPR 

LD B,D 

LD C,E 
PUSH DE 

LD HL, 9999 
LD DE, +1999 
CALL LADD 
LD DE,+199 
CALL LADD 
LD E, +10 
CALL LADD 
LD A, (BC) 
SUB "9" 

LD E,A 

ADD HL,DE 
LD B,H 

LD C,L 

LD HL, (5053) 
INC HL 

INC HL 
CALL CHACK 
JR C XSTS 
POP HL 

JR SRCH 


¿linea antiguo y nuevo. 
¡Encontrar un GOTO, GOSUB... 
¡Saltar si no hay. 

¡Apuntar DE al byte que 
¡sigue al comando GOTO... 
¡Contador de 4 bytes a cero. 
¡En esta rutina se comprueba 
¿que el argumento del GOTO.. 
j es explicito y no esta 
¿compuesto por una expresion 
jaritmetica ni esta definido 
¿por una variable para lo 
jcual se comprueba que 
¡despues del numero viene el 
jcarac. 14 identificador de 
¿numero en coma flotante. 
¡Despues de este caracter 
¡tienen que aparecer 5 bytes 
¡y un caracter de +final de 
jlinea(”":" o ENTER), en caso 


¿contrario no seria un 
¿numero simple. 

5 

5 

5 

j 

¿Una vez encontrado el 
¡numero explicito, se le 
jaNaden ceros hasta que 
¡posea cuatro digitos 


¿comprobando que no tenia ya 
¿mas de 4. (max=9999) 


; 

¡Subrutina que ¡inserta el 
¿caracter contenido en A 
jen la posicion apuntada por 
3DE. 

; 

5 

¡Rutina que calcula el valor 
¡del numero de linea 
¿(argumento del GOTO... que 
¿queremos modificar) en 
jbinario, multiplicando cada 
juno de los cuatro 
jcaracteres por la potencia 
¡de 19 correpondiente y 
¿guardando el resultado en 
¿BC. 


¡A al codigo ASCII de cada 
¿¡digito hay que restarle el 
¡codigo de cero para 
¡transformarlo en binario. 

; 

¿¡HL=zona de programa Basic. 
¡Rutina que trata de buscar 
jsi existe alguna linea que 


jposea un numero ¡igual a 
¡mayor al argumento del 
GOTO... 

¡En caso contrario, el 


67 


68 


FB9A 
FB9B 
FEocC 
FB9E 
FR9F 
FBAS 
FBA3 
FBAS 
FBA6 
FBA? 
FBAS 
FBAA 
FBAB 
FBAC 
FBAD 
FBAE 
FBAF 
FBB9 
FBB1 
FBB2 
FBB3 
FBB6 
FPR9 
FBBC 
FBBF 
FBC1 
FBCA4 
FBCé 
FBCO 
FBCA 
FBCB 
FBCC 
FBCD 
FBCE 
FBCF 
FBDG 
FBD1 
FBD2 
FBD3 
FBD4 
FBDS 
FBD6 
FBD? 
FBD8 
FBD9 
FBDC 
FBDF 
FBES 
FBE1 
FBE4 
FBES 
FBE6 
FBE7 
FBEA 
FBEB 
FBEC 
FBEE 
FBEF 


FBF9 
FBF1 


FBF2 
FBF3 
FBFA 


39 


g7 


é5 
EB 


FS 


E8 
Fe 
64 
Fe 
gA 
Fe 
aL 
Fe 


33 
53 


65 


42 


FC 


g7 
FB 
ga 
FB 
FB 


FP 


FB 
sc 


FC 


FC 


xXSTS 


WRNG 


NXTBT 


RSTR 
FLLW 


LD A, (HL) 
cP Cc 

JR NC NXTBT 
INC HL 
INC HL 
CALL EOL 
JR FNDLN 
INC HL 

LD A, (HL) 
CP B 

JR C WRNG 
DEC HL 
DEC HL 

LD C, (HL) 
DEC HL 

LD H, (HL) 
LD L,C 
POP BC 
PUSH BC 
PUSH HL 
LD DE, +1009 
CALL NSRT 
LD DE, +199 
CALL NSRT 
LD E, +10 
CALL NSRT 
LD E, 1 
CALL NSRT 
INC BC 
SUB A 

LD (BC),A 
INC BC 

LD (BC),A 
INC BC 
POP HL 

LD A,L 

LD (BC),A 
INC BC 

LD A,H 

LD (BC),A 
INC BC 
SUB A 

LD (BC),A 
POP HL 

JP SRCH 
LD HL, (5053) 
INC HL 
INC HL 
CALL CHCK 
PET NC 

LD B,H 
LD C,L 
CALL EOL 
PUSH HL 
AND A 

SBC HL,PC 
DEC HL 
DEC HL 

LD A,L 

LD (BC)3,A 
INC BC 

LD A,H 

LD (BC),A 


¡argumento no sera 
¿¡modificado. 

, 

5 

¿Si no existe, buscar otro 
¿GOTO.. y dejar este sin 
jmodificar. 4 

¿Si se encuentra la linea, 
jse carga HL con el nuevo 
ijnumero de linea que tendra 


jesta despues de la 
jrenumeracion y se descomp- 
¿su valor binario en cuatro 
¿digitos que representan el 
ivalor decimal y que seran 
¿guardados sobreescribierdo 
jel antiguo argumento de el 
¡comando GOTO,GOSUB... que 
jse este modificando. 


, 
5 


¡Para cada digito se carga 
¡HL con el valor binario, DE 
¿con la potencia de 19 y se 
llama a la rutina NSRT. 


¡Despues reconstruimos los 5 
¡bytes que forman la 
¡representacion en punto 
¿flotante del numero y se 
¿guardan despues del codigo 
¿de numero +14 en los bytes 
japuntados sucesivamente por 
¡BC. 


e... .. mn e 1. 


¿Continuar con la busqueda. 
¡HL=zona de programa. 
¡Saltar los bytes que 
¿guardan el nuevo numero. 
¿Si llegamos al final de la 
zona, volver al basic. 

¡Se copia HL a BC que 
¿contiene el principio de la 
linea. La subrutina EOL 
japunta HL al primer byte de 
jla linea siguiente 
¡Restando se consigue la 
¿longitud de la linea que se 
¿guarda en los bytes 3,4 de 
jla linea, donde reside 
¡normalmente. 


.. .. 


FRFS 
FBFS6 
FBF8 
FBFA 
FBFB 
FBFD 
FBFF 
FCogg 
Fco2 
FCg3 
FCaa 
FCgS 
FCg6 
FC97 
FCg9g 
FCYA 
FCOB 
FCcgc 
FCOD 
FCGF 
FC1g9 
FC13 
FC14 
FC16 
FC18 
Fc19 
FC1A 
Fcic 
FC1E 
FC1F 
FC29 
FC21 

FCc22 
FC23 

FC25 
FC27 
FC29 
FC2A 
FC2B 
FC2D 
Fc2F 
FC3g 
FC32 
FC34 
FCIó 
FC39 
FC3B 
FC3D 
FC3F 
FCa1 
FC43 
FCa45 
FCa7 
FC49 
FC4B 
FC4D 
FCaF 
FCS1 
FOS3 
FCOs5 
FOS7 
FC58 
FCSA 


FE 


28 


28 


FE 


E? 
39 


52 
g3 


Fe 


2F 


Pé 


1e 


NSRT 
SPTR 


POrE 


LATDD 


REPEA 


FND 


FNTP 


NCPS 


NTREM 


NACHA 


"STRG 


CHKDG 


POP HL 

JR FLLU 
LD A, +48 
AND A 

SBC HL, DE 
JR C POKE 
INC A 

JR SBTR 
ADD HL,DE 
LD (BC),A 
INC BC 

RET 

LD A, (BC) 
INC BC 

SUB +47 
DEC A 

RET Z 

ADD HL,DE 
JR REPEA 
LD A, (HL) 
CALL CHCK 
RET NC 

CP +234 

JR NZ NTREM 
INC HL 

LD A, (HL) 
CP +13 

JR MZ FNTR 
INC HL 

INC HL 

INC HL 

INC HL 

INC HL 

JR FND 

CP 22 

JR NZ NSTRG 
INC HL 

LD A, (HL) 
cP 22 

JR MZ NXCHR 
INC HL 

JR FMD 

CP £D 

JR Z NCRS 
CALL 1826 
JR Z FND 
CP ED 

JR Z CHKDG 
CP EC 

JP Z CHKDG 
CP F7 

JR Z CHKDG 
CP Fa 

JR Z CHKDG 
CP ES 

JR Z CHKDG 
CP El 

JR Z CHKDG 
CP CA 

JR Z CHKDG 
INC HL 

JR FND 

INC HL 


¡Continuar con la siguiente. 
¿Diversas rutinas utilizadas 
janteriormente. 


jEsta rutina se encarga de 
¡buscar los comandos 
3GOTO, GOSUB,LINE,RESTORE, RUN 
¡Í¿LIST y LLIST que no se 
jencuentren en lineas de RE 
ser modificados con 
nuevos numeros de 
lineas. 


¡para 
los 


Sen unas comillas ?. 
Salta si no lo son 

Si eran comillas hay que 
buscar las segundas que 
c 


. 
, 
5 
: 
, 
; 
; 
, 
5 
, 
, 
. 
, 
; 
. 
, 
; 
. 
, 
; 
¡cierran el mensaje. 
i 

, 

, 


jEs el caracter ENTER ? 
¡Salta si lo es. 
¡Putina que salta los 
¡de los numeros en 
flotante. Es GOSUB ? 
¡Salta si lo es. 

¡Es GOTO ? 


bytes 
punto 


Es RUN ? 


m 
u 


LIST 


m 
n 


RESTORE ? 


m 
u 


LLIST 2 


LINE 2 


m 
u 


a 


¡Continua buscando. 


¡Rutina para ver el 


69 


si 


70 


FCS5B 7E LD A, (HL) jcodigo del byte apuntado 


FCSC FE 39 CcP +48 ¿por HL es el carecter ascii 
FCSE 38 AF JR Z FND ¡correspondiente a un numero 
FCó69 FE ZA cP +58 ¡del Y al 9. 

FC62 340 AB JR NC FND 5 

FCcé4 C9 RET 5 

FC£5 7E EOL LD A, (HL) ¡Rutina de busqueda de final 
FCó66 CD Bó6 18 AGAIN CALL 18h6 ¡del linea. 

FC69 28 FB JR Z AGAIN 5 

FC6B FE 9D CP +13 5 

FCé6D 23 INC HL ; 

FC6E 29 FS JR NZ EOL ; 

FC79 ES cHcK PUSH HL 5 

FC71 DS PUSH DE ; 

FC72 ED SB 4B LD DE, (4BSB) 5 

FC7S 535€ 3 

FC76 A7 AND A 5 

FC77 ED 52 SBC HL,DE 5 

FC79 D1 POP DE ; 

FC7A El POP HL 3 

FC7B C9 RET d 


Comienzan en este punto las rutinas del comando .DEL. 


FC7C D7? 82 FC RDEL RST 19 DELET ¡Ejecutarlas con la ROM1 
FC?F C3 C1 95 JP $5C1 ¡Salida al interprete. 

FC82 CD 99 1E DFLET CALL 1E99 ¡BC=ultima linea a borrar 
FC85s C5 PUSH BC jsalvar BC 

FC86 CD 99 1E CALL 1E99 ¡PC=primera linea a borrar 
Fceo cs PUSH BC jsalvar BC. 

FCeA El POP HL ¡HL=primera linea. 

FC8B D1 POP DE ¡DE=ultima linea. 

Fcec 7C LD A,H Si alguno de los dos 
FC8D BS OR L jargumentos vale 9, volver a 
FC8E C8 RET Z ¡Basic sin borrar ninguna 
FC8F 7A LD A,D jlinea. 

FC9Y BI OR E 5 

FC91 c8 RET Z 5 

FC92 DS PUSH DE jsalvar la ultima linea. 
FC93 CD 6E 19 CALL 196E ¡Rutina de la ROM1 que 


devuelve en HL la direccion de comienzo de la primera linea cuyo 
numero sea igual o mayor que el existente en HL. 


FC96 E3 EX (SP),HL ¡HL=ultima linea 

FC97 23 INC HL ¡calcular la direccion de 
FC98 CD €E 19 CALL 196E ¿comienzo de la ultima linea 
FC9B D1 POP DE 5 

FC9C A? AND A j 

FCOD ED 52 SBC HL,DE ¿Si la ultima linea es igual 
FC9F Ce RET Z jo menor que la primera, 
FCAY De RET C ¡volver a basic. 

FCAl1 44 LD B,H ¿Copiar HL en BC 

FCA2 4D ED “c4L 5 

FCA3 19 ADD HL,DE ¿Prepara HL y DE para que 
FCA4 EB EX DE,HL japunten al principio y 
FCAS CD E8 19 CALL 19E8 final de la zona. Borrar 
FCA8 C9 RET jesa parte del programa. 


Sintaxis del argumento del comando .FND. 


FCA9 D7? 298 09 RFND RST 14% 09629 ¡Incrementar CHADD 
FCAC D? ec 1c RET 18 1C8C ¿Analizar cadena de 
FCAF CD P7 g5 CALL 95B? ¡caracteres 


¡Ejecutar SRY con ROM1. 
¡Salida del comando. 


FCB2 DD”? E3 FC 
FCBS C3 C1 £5 


RST 18 SRY 
JP 95C1 


Sintaxis de los argumentos del comando .CHA. 


FCR8 D7 20 90 RCHA RST 19 8929 ¿Incrementar CHADD 

FCPB D7 8c€ 1cC RST 19 1C8C ¿¡Candena de carateres 

FCBE: FE CC cP cc Existe un separador "TO"? 
FCCG C2 F9 81 JP NZ 91F9 ¡Error si no existe. 

FCC3 D7? 29 66 RST 19 6929 ¡Analizar la segunda cadena 
FCC6 D? 8. 1c RST 168 1C8C ¡de caracteres. 

FCC9 CD B7 (5 CALL 95B7 ¡Salida en edicion . 

FCCC D? D2 FC RST 19 CH9S ¡Ejecutar con la ROM1 activa 
FCCF €3 Ct AS JP Y95C1 ¡Salida del comando. 

FCD2 CD Fi 2B CH9 CALL 2BF1 ¡DE=comienzo ultima cadena 
FCDS 79 LD A,C ¡BC=longitud Ñ .S 

FCDé6 FE 99 cr yg ¡La longitud es Y ? 

Fcne Ce RET Z ¿Si lo es, volver a basic. 
FCD9 21 29 SA LD HL,5B99 ¿copiar 5B99 la longitud 
FCDC 71 LD (HL),C ¡de la segunda cadena. 

FCDD 23 INC HL ; 

FCDE 79 LD (HL>,B ; 

FCDF 23 INC HL ; 

FCES EB EX DE, HL ¿Copiar en 5B92 la segunda 
FCE1 ED B9 LDIR jcadena. 

FCE3 CD F1 2B SR CALL 2BF1 ¡DE=comienzo primera cadena. 
FCE6 DS PUSH DE ¿BC=longitud primera cadena. 
FCE7 DD El POP IX 3 IX=DE 

FCE9 79 LD A,C ¡A=longitud 

FCEA 32 81 SC LD (VARGA1>,N ¡Salvar la longitud en VARS1 
FCED FD CB 942 st RES 9, (IY+2) ; 

FCFY 86 ; 

FCF1 2A 53 5C LD HL, (5053) ¡HL=Programa basic. 

FCF4 3A €1 5C SR2 LD A, (VARY1) ¡A=longitud 

FCF7 SF LD E,A 5 

FCF8 FE 99 CP 9 jvolver a basic si A=9 

FCFA C9 RET Z ; 

FCFB ES PUSH HL ¡Copiar el comienzo de la 
FCFC DD ES SR3 PUSH IX primera cadena a BC. 

FCFE C1 POP BC ; 

FCFF 16 Yu LD D,9 ¿Contador de coincidencias=9 
FDG1 23 INC HL ¡Saltar los bytes que 
FD92 23 INC HL ¡contienen el numero de la 
FD43 23 INC HL jlinea y su longitud. 

FDgG4 23 eP4 INC HL ; 

FD9S DS PUSH DE ¡Salvar DE 

FD9G6 ED SP 4B LD DE, (5C4B) ¿¡DE=Comienzo de la zona de 
FDg£9 5 jvariables. 

FDA AF XOR A ¡A=9 

FD9B A? AND A ¡CARRY FLAG=9 

FD9C ED 52 SBC HL,DE 3Si HL se encuentra dentro 
FDGE 19 ADD HL,DE ¡de la zona de variables el 
FD9F D1 POP DE ¿FLAG CARRY se pone a Y. 
FD19 38 92 JR C SR5 ¡Salta si HL>DE 

FD12 El - POP HL 5 

FD13 C9 RET ; 

FD14 7E SRS LD A, (HL) ¡Es HL final de linea ? 

FD1S FE 9D CP ti3 5 

FD17 24 5 JR NZ SRé ¡Salta si no lo es 

FD19 23 INC HL $Si lo es, vuelvo a buscar 
FDIA C1 POP BC jla siguiente linea. 


711 


FDI1B ES PUSH HL ; 


FD1C 18 DE JR SR3 ; 

FD1E CD Pé 12 SRé CALL 18B6 ¿Si encontramos un numero 
FDO21 28. 11 JR NZ SR8 ¡saltar los 5 bytes 

FD23 2B DEC HL jencintramos 

FD24 7A sr” LD A,D jA=contador coincidencias 
FD2S FE 49 CcP 9 ¡Si es M saltar. Y 

FD27 28 94 JR Z SR71 ; 

FD29 42 LD B,D ¿Si D>9 decrementar HL 
FD2A 2B SR? DEC HL ¡tantas veces como el valor 
FD2B 19 FD DIJNZ SR79 ¿de D. 

FD2D DD ES SR71 PUSH IX ¡BC=Comienzo de la primera 
FDZF C1 POP BC jcadena. 

FD39 16 99 LD D,S ¡Contador a Y. 

FD32 18 DY JR SR4 ¡Vuelve a buscar la cadena. 
FD34a gn SsR8 LD A, (BC) ¡A=Primer byte de la 1 cade. 
FD35S BE CP (HL) ¿Si no es ¡igual al byte 
FD3ó 24M EC JR NZ SR? ¡del programa , salta. 

FD38 683 INC PEC ¿Si son iguales, BC=BC+1 
FD39 14 INC D ¿Incrementa contador de 
FD3A 7A LD A,D ¡coincidencias y copiarlo en 
FD3B BB cP E A. Saltar si no es igual a 
FD3C 2£ Cé JR NZ SR4 la longitud de la cadena. 
FD3E 3 BG 5C LD A, (5CP9) ; 


Si son iguales, es que hemos encontrado la primera cadena en el programa, 
por lo que, dependiendo si nos encontramos en el comando .FND o .CHA, 
haremos un listado de la línea o la reemplazaremos con la segunda cadena. 


FD41 FE %A CP YA ¡Salta si es el comando .CHA 
FD93 24 12 JR NZ CH1 ; 

FD45 El sro POP HL ¡Si es el comando . FND 
FD46 ES PUSH HL ¡prepara HL con el comienzo 
FD47 43€ LD B, (HL) ¡de la linea. Hacer 
FD48 23 IMC HL ¡BC=numero de la linea y 
FD49 1E LD C, (HL) ¡hacer esta linea la que 
FD4A ED 43 49 LD (5C49),PC” ¡tiene el cursor del editor. 
FD4D SC ; 

FD4E El POP HL ¡Lista la linea que empieza 
FD4F CD 55 12 CALL 1855 jen la direccion HL. 

FDS2 3E YN LD A,9D Imprime un ENTER. 

FD5S4 D7 RST 19 3 

FDSS 18 9D JR SR2 ¡Continua buscando. 

FDS57 7B cH1 LD A,E ¿A=locngitud primera cadena. 
FDS8 FE $91! GP 1 ¡Actualiza HL para que 
FDSA 28 85 JR Z CH3 ¡vuelva a apuntar al 
FD5C 3D DEC A ¡comienzo de la cadena 
FDSD 47 LD B,A jencontrada en el programa. 
FDSE 2B CcH2 DEC HL ; 

FDSF 19 FD DJINZ CH2 5 

FDó61 3A 94 SB CH3 LD A, (5B99) ¿¡A=longitud de la segunda 
FD64 BB cP E ¿Compara con long. primera 
FD£5 28 e JR Z CH4 ¡Salta si son iguales o 

FD67 38 26 JR C CH4 ¡si la primera > segunda. 
FD69 7B LD A,E 3Si la primera Y segunda las 
FDó6A 32 09 SP LD (5B99),A ¡hacemos iguales a la mas 
FD6D 18 94 JP CH4 jpequela de las dos. 
FDó6F EB CcH4 EX DE,HL ; 

FD79 21 92 SB LD HL,5B92 ¿¡Copiamos la nueva cadena a 


FD73 96 YY LD B,9 jla posicion del programa 


FD7S 3A 99 5B LD A, (5B99) ¿¡donde hemos encontrado una 
FD78 4F LD C,A jigual que la primera 
FD?79 ED BY LDIR jcadena. 

FD7B EB EX DE,HL 5 

FD7C 2B DEC HL ¡Seguimos la busqueda de 
FD7D DD ES PUSH IX jotras cadenas dentro de la 
FD?7F C1 POP BC ¡misma linea del programa. 
FD89 3A 81 5C LD A, (5081) 5 
FD83 16 99 LD D,9 ; 
FD8S SF LD E,A ; 
FD86 C3 M4 FP JP SR4 5 
FD89 AS POMSG Ag ¡Mensaje que aparecera 
FD8A 4D 69 63 TXT "Micro Ba”;jcuando ejecutemos un .NEW 
FD8D 72 6€F 29 TXT. "sic 0.8.” 
FD99 42 61 73 TXT "ANC SPAI"; 
FD93 69 63 20 TAT "N,? 5 
FD96 4F 2E 33 ; 
FD99 2E 24M 41 5 
FD9C 4E 43 29 ; 
FD9F 53 59 41 5 
FDA2 49 4E 29 5 
FDAS 27F 7F 5 
FDA6 31 39 38 ST "198" 5 
FDA9 B4 B4 ; 


Para ejecutar el siguiente comando (generación automática de líneas de pro- 
grama), necesitamos utilizar las interrupciones del microprocesador Z80. En el 
Spectrum, la CPU recibe una interrupción cada 50 milisegundos, que en el modo 
normal (IM1) produce la ejecución de la subrutina $38, que se encarga de “mirar” 
si se está pulsando alguna tecla. Sin embargo, en el modo IM2 la subrutina 
ejecutada será aquella cuya dirección inicial esté guardada en la dirección formada 
por el contenido del registro I (byte más significativo), más un byte leido del 
periférico que produjo la interrupción (byte menos significativo). Si no hay ningún 
periférico que produzca este segundo byte (un interfaz Centronics, un joystick, 
etcétera) su valor será de FF. Así pues, si el registro A contiene, por ejemplo, el valor 
9, la dirección formada será $9FF que, con la siguiente dirección, contienen en la 
ROMl1 el valor $FE69. Esta será la subrutina ejecutada cada 50 milisegundos. De 
esta forma, aprovechando el valor fijo de la ROM1 podemos ejecutar una tarea 
independientemente del intérprete BASIC. 

Cambiando el valor de l se pueden obtener otras direcciones, pero siempre 
hay que tener cuidado de que no exista ningún periférico que produzca un valor 
diferente de $FF cuando ocurra una interrupción del tipo 1M2. 


FDAA D7 29 99 RAOF RST 19 9929 ¡Avanzar CHADD 

FDAD CD B7 95 CALL £M5B7 ¡Salir en tiempo de sintaxis 
FDB9 F3 DI ¿Inhibir la interrupcion. 
FDB1 3E 3E LD A,3E ¿Cargar el registro I con su 
FDB3 ED 47 LD I,A ¿valor normal 3E y 
FDBS ED 56 IM1 ¡seleccionar el modo de 
FDB7 FF EX jinterrupcion 1. Desinhibir 
FDP8 C3 C1 Y5 JP Y5C1 jla interrupcion y salir. 
FDBR D? 248 94% RAON RST 1£ £0298 ¡Avanzar CHADD 

FDBE CD (05 B? CALL 065B7 ¡Salir en tiempo de sintaxis 
FDC1t F3 DI jInhibir la interrupcion. 
FDC2 21 44 F? LD HL, VECIN ¡Copiar 3 bytes a la 
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FDCS 
FDce 
FDCB 
FDCD 
FDCF 
FDD1 
FDD3 
FDD4 
FDD?7 
FDD8 
FDD9 
FDDA 
FDDB 
FDDE 
FDESY 
FDE2 
FDE3 
FDE4 
FDES 
FDE6 
FDE? 
FDE8S 
FDEB 
FDED 
FDEF 
FDF2 
FDF4 
FDF6 
FDF9 
FDFB 
FDFD 
FEO 
FES1 
FES3 
FE9S 
Fege 
FEY9 
FEOB 
FESD 
FEF 
FE11 
FE13 
FEl16 
FE19 
FE1A 
FED 
FE29 
FE23 
FE24 
FE27 
FE2ZA 
FE2C 
FEZE 
FE31 
FE34 
FE36 
FE38 
FE3B 
FE3E 
FEag 
FE42 
FE45S 
FE48 


11 
gr 
ED 
3E 
ED 
ED 
FB 
c3 
ga 
FF 
F3 
FS 
3A 
FE 
28 
F1 
FB 
c9 
ES 
Ds 
cs 
3A 
FE 
29 
3A 
FE 
29 
3A 
FE 
29 
21 
7E 
FE 
28 
21 
7E 
FE 
28 
FE 
29 
3E 
32 
3A 
3D 
32 
2N 
11 
19 
g1 
CD 
FE 


28 
g1 
CD 
FE 
28 
g1 
CD 
FE 
22 
g1 
CD 
18 


69 
g3 
BO 
39 
47 
613 


ct 


dal 
El 
gz 


AA 


FE 
es 


g5 


39 


FD 


sc 


sc 


sc 


FD 
FD 


FD 
Eo 
g3 


FC 
FE 


FF 
FE 


FE 
FE 


FF 
FE 


TRAC£ 
INTER 


ROM1 


TWRIT 


TRACA4 


LD DE,FE69 
LD BC,8993 
LDIR 


LD A,99 
LD I,A 

1M2 

El 

JP 95C1 
3 

RST 38 

DI 

PUSH AF 


LD A, (9949) 
CP El 

JR NZ ROM1 
POP AF 

El 

RET 

PUSH HL 
PUSH DE 
PUSH BC 

LD A, (TRACD) 
cP 9 

JR NZ TRACS 
LD A, (5082) 
CP 29 

JR NZ TRACI 
LD A, (5083) 
CP 17 

JR NZ TRAC3 
LD HL,5C48 
LD A, (HL) 
cp oc 

JR Z TRAC3 
LD HL 5094 
LD A, (HL) 
CP 9D 

JR Z TWRIT 
CP FF 

JR NZ TRAC3 
LD A,94 

LD (TRACO),A 
LD A, (TRACS) 
DEC A 

LD (TRACO),A 
LD HL, (5049) 
LD DE, 999A 
ADD HL, DE 
LD BC,FC18 
CALL TRAC1 
CP 3 

JR Z TRAC3 
LD BC,FF9C 
CALL TRACI 
cP 2 

JR Z TRAC3 
LD BC,FFFé 
CALL TRAC1 
cP 1 

JR Z TRAC3 
LD BC,FFFF 
CALL TRAC1 
JR TRAC3 


¡direccion FE69 para que nos 


¿den control en cada 
jinterrupcion. 
1=99 


, 
; 
¿Modo de interrupcion 2 
¡Desinhibir la interrupcion. 
¡Salida al basic 
¡Variable=numero de digitos. 
¡Rutina normal de interrup. 
jInhibe la interrupcion. 
¡salvar AF 

¿Si esta selecionada la ROM1 
¡saltar a la rutina. 

jen caso contrario salir. 


Si la variable <>9Y9 seguir 


5 
3 
5 
¡Salvar los registros. 
5 
5 
; 
3 numero de 


imprimiendo el 
¡linea en TRAC4 
¡Si TRAC9=9, el cursor esta 
jen la columna 32 y en la 
fila 23 y estamos apretando 
la tecla ENTER, seguir con 
jla rutina. Si elgura de las 
¿condiciones anteriores no 
jse cumple, saltar a TRAC3 


TRACS9=contador de digitos=4 


decrementar contador. 


¡Direc. linea con cursor del 
jeditor. 

¡Incrementar el numero de 
¡linea con el valor de DE. 
¡Se imprime cada numero 
¡cargando BC con FFFF menos 
jlas sucesivas potencias de 
310 y llamando a la rutina 


¡TRACI. 


Salida. 


FE4A 
FE4B 
FE4C 
FE4D 
FE4F 
FES1 
FES2 
FES4 
FES> 
FESA 
FESC 
FESF 
FE62 
FE63 
FE64 
FE65 
FE66 
FE67 
FES8 
FE69 
FE6C 
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TRAC1 
TRAC2 


TRAC3 


FE FE LBJP 


XOR A 

ADD HL,BC 
INC A 

JR C TRACZ 
SPC HL,BC 
DEC A 

ADD A,39 
LD (5088),A 
LD A, (5C3B) 
SET 5,A 

LD (5C3B),A 
LD A, (TRAC8) 
RET 

POP EC 

POP DE 

POP HL 

POP AF 

El 

RET 

FE FE FE FE 


3¡A=9:HL=numero de linea 
¡Incrementar A tantas veces 
¿como podamos restar la 
¡potencia de 19 a HL sin dar 
jun numero negativo. 


jAlmacenamos el codigo del 
idigito en la variable que 
contiene la ultima tecla 


¡pulsada y sedalamos en el 
¡bit 3 de 5C3B que se ha 
¡pulsado un tecla. 

5 


¡Recuperamos todos los 
jregistros. 

; 

; 

¡Desinhibimos la 


jinterrupcion. 
¿Zona donde se 
¡tres bytes JP 


guardaran los 
INTER. 


5.6 


Comando Screen$ para impresora (RS-232) 


El siguiente comando es SCREENS, que efectúa una copia de la pantalla 
gráfica en la impresora a través del interfaz RS-232. Este comando cambiará 
para cada tipo de impresora, pues los caracteres de control y los gráficos suelen 
ser distintos. En nuestro caso, se ha utilizado con una impresora GP100, pero 
consideramos que cualquier lector puede modificar la rutina, con poco esfuerzo, 


para ajustarla a su propia impresora. 


FE6D 
FE79 
FE73 
FE76 
FE79 
FE7A 
FEB 
FE7C 
FE?D 
FE7E 
FES9 
FE81 
FE82 
FE8S3 
FE84 
FE86 
FE89 
FE8ec 
FESE 
FE99 
FE91 
FE92 
FE93 
FE94 


D7 
CD 
D> 
Cc3 
cs 
ES 
DS 
FS 
CcF 
1€E 
Di 
El 
Cc1 
c9 
16 
21 
CD 
se 
1€E 
7A 
e3 
3D 
47 
CD 


29 M4 RCOPY 
B7 45 
ea FE 
c1 as 


Fi 


ga 
ES FE 
D9 FE 
1512] 
97 


BC FE 


PRINT 


coPY 
NEXTY 


MEXTX 
NEXTZ 


RST 109 9920 
CALL £5B7 
REST 19 COPY 
JP 95C1 
PUSH BC 
PUSH HL 
PUSH DE 
PUSH AF 
RST 2 1E 
POP AF 

POP DE 

POP HL 

POP BC 

RET 

LD D,9 

LD HL, GRAPH 
CALL LPRT 
LD C,9 

LD E,? 

LD A,D 

ADD A,E 

DEC A 

LD B,A 

CALL POINT 


¿Avanzar CHADD. 

¡Salir en tiempo de sintaxis 
¡Ejecutar la copia. (ROM1) 

, 

¿¡Subrutina que 
¡caracter en el 
¿por la ¡interfaz 
jsin modificar 

jregistro. 

3 


imprime un 
registro A 
RS-232. 

ningun 


3 

¡FOR Y=9 TO 189 STEP 7 
¿Poner la impresora en 
jgrafico. 

¡FOR X=9 TO 255 (C=x) 
¿FOR BIT=ó6 TO Y STEP -1 
¡A=Y+BIT 

; 

3C=X del punto 

¡B=Y del punto 

¡Esta pintado ? 


(D=Y) 
modo 
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FE97 FE 99 cP 9 5 


FE99 28 93 JR Z NOPIX ¡Salta si no lo esta. 

FE9B 37 scF ¡Carry flag a 1. 

FE9C 18 91 JR SHIFT 5 

FE9E A7? NOPIX AND A ¡Carry flag a 9. 

FE9F CB 15 SHIFT RL L jDesplazar hacia la izq. 
FEAL 1D DEC E 5 

FEA2 29 EC JE NZ NEXTZ ¿NEXT BIT 5 

FEAS CB FD SET 7,L ¡La GP199 necesita el bit 7 
FEA6 7D LD A,L ja 1 para imprimir graficos. 
FEA7 CD 79 FE CALL PRINT ¡Imprime el caracter grafico 
FEAA 90 INC C ; 

FEAB 28 El JR N8 NEXTX ¡NEXT X 

FEAD 7A LD A,D ; 

FEAE Có6 97 ADD A,7? y 

FEB9 57 LD D,A ; 

FEB1 FE BD CP +189 3 

FEB3 28 D1 JR NZ NEXTY ¿NEXT Y 

FEBS 21 EC FE LD HL, CHRMD ¡Ponerla en modo no grafica. 
FEB8 CD D9 FE CALL LPRT d 

FEBB C9 RET ¡Salida al basic. 

FEBC ES POINT PUSH HL ¡Rutina que examina si un 
FEBD C5 PUSH BC ¿punto esta pintado. Las 
FEBE DS PUSH DE ¿coordenadas estan en los 
FEBF DD ES PUSH IX ¡registros B y C. 

FEC1 D9 EXX ; 

FEC2 ES PUSH HL j 

FEC3 E9 EXX j 

FEC4 78 LD A,B y 

FECS CD BY 22 CALL 22B9 3 

FEC8S 47 LD B,A ; 

FEC9 Y4 INC B 

FECA 7E LD A, (HL) 3 

FECB 97 LooP RLCA 5 

FECC 19 FD DJNZ LOOP 5 

FECE E6 91 AND 1 5 

FED9 D9 EXX ; 

FED1 El POP HL 5 

FED2 D9 EXX ; 

FED3 DD El POP IX 3 

FEDS Di POP DE , 

FEDé C1 POP BC , 

FED7 El POP HL y 

FED8 Cc9 RET , 

FED9 7E LPRT LD A, (HL) ¿¡Subrutina que imprime una 
FEDA FE FE CP FE ¿cadena de caracteres 
FEDC C8 RET Z jalmacenada a partir de HL y 
FEDD ES PUSH HL jque acaba en el byte FE. 
FEDE CD 79 FE CALL PRINT 5 

FEE1 El POP HL 3 

FEE2 23 INC HL ; 

FEE3 189 F4 JR LPRT , 

FEES YA 98€ 1B GRAPH gYgA 98 1B 19 Y ¡Carateres de la GP199 para 
FEE8S 19 YY ponerla en modo grafico y 
FEEA 29 FE 29 FE ; 

FEEC YA SF YA CHRMD gA SF YA FE ¡En modo normal. (Siempre 
FEEF FE jacaba en FE) 


5.7 
Teclas de funciones 


Una de las tareas más pesadas en la introducción de programas en el Spec- 
trum es la de componer correctamente la sintaxis de los nuevos comandos del 
Interface 1. Estos son largos y diferentes (¿quién no ha puesto alguna vez ERA- 


76 


SEx*“m”;1;“prog” sin darse cuenta que no necesita asterisco?). Para simplificar la 
introducción de estos comandos, sin posibilidad de error, hemos diseñado toda 
una serie de teclas, normalmente las mismas que contienen los comandos, pero 
utilizadas con el SYMBOL SHIFT, que, seguidas de la tecla, ENTER, modifi- 
can la línea de entrada, generando el comando del Interface 1 correspondiente y 
dejando el cursor en el lugar adecuado. Con estas funciones disminuye drástica- 
mente el número de teclas que debemos pulsar y evita gran cantidad de errores. 
Por último, hay que señalar que estas funciones podrían ser modificadas fácilmen- 
te por el lector para acomodarlas a sus necesidades. 


FEF9 3E F8 RSAVE LD A,F8 ¡Cargar A con el codigo 
FEF2 18 YA JR SACON jespecifico del comando. 
FEF4 3E EF RLOAD LD A,EF 5 

FEFéó 18 0 JR SACON 5 

FEF8 3E D6 RVERY LD A,Dó y 

FEFA 18 97 JR SACON 5 

FEFC 3E DS RMERG LD A,D5 , 

FEFE 91 MA BA SACON LD BC,YA ¡Cargar BC con la longitud 
FF91 11 39 FF LD DE, TEXCM ¿de la cadena y DE=comienzo 
FF94 18 1A JR AMPLI ¡Saltar a la rutina de 
FF96 3E D1 RMOVE LD A,D1 jampliacion. 

FF98 18 96 JR MOCON jIdentico pero para otro 
FFGA 3E D2 RERAS LD A,D2 jgrupo de comandos que no 
FF9C 12 942 JR MOCON jnecesitan el asterico. 

FFGE 3E DY RFORM LD A,D9 ; 

FF19 11 43 FF MOCON LD DE TEXSA 3 

FF13 91 09 eg LD BC,9 3 

FFi6 1e Ye JR AMPLI 3 

FF1€ 3E D3 ROPEN LD A,D3 ¡El comando OPEN tiene 
FFIA 11 4C FF LD DE, TEXOP jsintaxis diferente. 

FF1ID 91 YB YY LD BC,YB 5 

FF29 DS AMPLI PUSH DE jSalvar registros. 

FF21 C5 PUSH BC ; 

FF22 12 LD (DE),A ¡Guardar el codigo del 
FF23 D7 29 99 RST 19 9929 jcomando. 

FF26 C1 POP BC ; 

FF27 C5 PUSH BC 5 

FF28 UB DEC BC ¡BC=BC-1 

FF29 D7 55 16 RST 19 1655 jAbrir BC espacios en la 
FF2C C1 POP BC ¿zona donde se esta editando 
FF2D D1 POP DE jla linea. 

FF2E EB EX DE, HL ¿copiar la nueva sintaxis. 
FF2F ED B9 LDIR 3 

FF31 EB EX DE,HL ; 

FF32 2B DEC HL ; 

FFI3 22 5B 5C LD (5C5B),HL Actualizar el cursor. 

FF36 C3 F9 01 JP B1F9 ¡Salir generando error 

FF39 F8 TEXCM Fe ¿Texto de los diferentes 
FF3A 2A 22 6D TEXMD TXT "*" 22 "m";comandos. 

FF3D 22 3B 31 2a "uL5” ; 

FF49 3B 22 22 22 22 5 

FF43 D1 22 €D TEXSA D1- 22 *"m"- 22 3 

FF46 22 XP 31 AAA Z2 22 , 

FF49 3B 22 22 , 

FFaC D3 32 32 TEXOP D3 "8;" 22 "m*"; 

FF4F 22 6D 5 

FFS1 22 3B 31 22 "313" 22 22; 

FFS4 3 22 22 5 


Manual 
del MicroBASIC 


Hemos visto detalladamente cómo funciona cada comando, pero creemos que 
para el uso cotidiano de esta ampliación del BASIC hace falta una guía de 
utilización de todos y cada uno de ellos donde aparezcan todas las características 
y restricciones, y que sirva, de esta forma, como manual de consulta rápida. 

En este capítulo incluimos una descripción de cada comando a nivel de: 


Sintaxis. 
Número y tipos de parámetros utilizados. 
Ejemplo de utilización en un pequeño programa. 


Pasemos a este resumen. 
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.AOF 


Este comando desactiva la generación automática de número de línea. 


+ 


.AOF 


Elemento Descripción Restricciones 


Carácter ASCII. 


Comando tecleado letra a le- Siempre en mayúsculas. 
tra. 


PROGRAMA EJEMPLO: 


Si está activada la generación, basta con borrar el número actual y pulsar 
.AOF. 


Nota.—Por precaución, si se está utilizando la generación automática de 
numeración no debe correrse ningún programa, pues en determinadas condiciones 
se puede quedar bloqueado sin posibilidad de detener el programa. Así pues, antes 
de ejecutar RUN o GOTO para correr un programa y si se ha utilizado .AON, 
simplemente ejecutar ,AOF y proseguir normalmente. 


.AON 


Este comando activa la generación automática del número de línea que ayuda 
a la introducción de un programa. 


.AON 


Elemento Descripción Restricciones 


Carácter ASCII. 


Comando tecleado letra a le- Siempre en mayúsculas. 
tra. 


PROGRAMA EJEMPLO: 


.AON y pulsar dos veces Enter. Automáticamente aparecerá al pie... 0010 y 
podremos teclear la primera línea, al pulsar ENTER volverá a aparecer 0020; si 
queremos ejecutar directamente un comando debemos borrar primero la numera- 
ción automática. 

La numeración siempre comienza con un número de línea igual a la última 
línea insertada más diez. Si acabamos de hacer un .NEW empezará con 0010. Si 
deseamos empezar con otra línea cualquiera, escribir su número restándole previa- 
mente diez y pulsar ENTER. 
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.CHA 


Este comando cambia una cadena de caracteres por otra cada vez que encuen- 


tre una ocurrencia de la primera. 


sy 


.CHA Antigua$ TO NUEVAS 


Elemento Descripción 


Carácter ASCII. 

CHA Comando tecleado letra a le- 
tra. 

Antigua$ Cadena de caracteres que se 
desea encontrar. 

TO Comando de una sola tecla. 
Nueva cadena que sustituirá 
a la anterior. 


PROGRAMA EJEMPLO: 


189 REM Juan 
119 REM Jose 
126 REM Rosa 


Ejecutar .CHA “os” TO “us” y quedará... 


149 REM Juan 


120 REM Jusa 
1368 REM Rusa 


Restricciones 


Siempre en mayúsculas. 


La longitud de la cadena antigua y la nueva pueden ser diferentes, pero el 
número de caracteres que se cambiará será igual siempre al de la cadena menor 


de las dos. 


Extrémese el cuidado al cambiar cadenas de pocos caracteres, pues casi siem- 
pre existen más de las que prevemos. Como consejo, utilizar previamente el 
comando .FND para encontrar todas las ocurrencias o especificar la cadena 
Antigua$ con suficiente número de caracteres como para evitar confusiones. 
También será actualizado el cursor del editor (véase comando .FND). 


.DEL 


Este comando borra todas las líneas comprendidas en el intervalo especificado. 


.DEL Linicial , Lfinal 


Elemento Descripción Restricciones 


Carácter ASCII. 


DEL Comando tecleado letra a le- Siempre en mayúsculas. 
tra. 


Linicial Número o variable que será 0 < Linicial < 9999, 


borrada. 
S Carácter ASCII. 


Lfinal Número o variable de la lí- 0<Lfinal < 9999, 
nea final que será borrada 
(ambas inclusive). 


PROGRAMA EJEMPLO: 


109 REM 
119 REM 
129 REM 
1308 REM 


Ejecutar .DEL 110, 125 y quedará... 


1044 REM 


134 REM 
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.FND 


Este comando lista las líneas de BASIC que contiene una cadena de caracteres. 


s 


.FND Cadena$ 


Elemento Descripción Restricciones 


Carácter ASCII. 
FND Comando tecleado letra a le- Siempre en mayúsculas. 


tra. 


Cadena$ Cadena de caracteres que se 
desea encontrar. 


Cada línea que contenga la cadena buscada será impresa y apuntada con el 
curso del editor, de tal forma que para editar la última línea encontrada sólo se 
tendrá que pulsar el comando EDIT (CAPS SHIFT y 1), y ésta aparecerá en la 
parte inferior de la pantalla lista para ser modificada. 


PROGRAMA EJEMPLO: 


1% REM FIND=Encuentra 
29 PRINT "Encuentra” 
39 PRINT:¿REM 


Ejecutar .F-ND “Encu” y se listará... 


19 REM FIND=Encuentra 


29 PRINT "Encuentra” 


También se puede encontar un carácter, por ejemplo, el carácter 234 (REM), y 
el comando producirá el correspondiente listado. 


IN+ 


Este comando lee el identificador de un sector físico del microcartridge volcán- 
dolo sobre una cadena de caracteres. 


IN+ Canal , Sector ; Buffer$ 


Elemento Descripción Restricciones 


Comando tecleado en modo Una sola tecla. 

extendido. 

Carácter ASCII. 

Número del canal asignado Previamente asignado a un 
al fichero. fichero nuevo. 


Carácter ASCII. 
Sector Número del sector físico del Debe existir 
cartridge. (0= <sector < =255) 
S Carácter ASCII. 
Buffer$ Cadena de caracteres donde Dimensión máxima 82. 


se guardará el identificador 
del sector leído. 


El identificador del sector contiene toda la información sobre sus característi- 
cas y el nombre del fichero al cual pertenece. No obstante, no existirán todos los 
sectores físicos desde el O al 255, sino aproximadamente unos 160 sectores reparti- 
dos arbitrariamente cuando se formatee el cartridge. 

Este comando se recomienda cuando se necesita conocer el nombre exacto 
(carácter a carácter) de un fichero que contenga algún carácter extraño que nos 
impida leerlo o borrarlo, para lo cual tenemos que conocer los sectores físicos 
donde residen. 

Este trabajo se recomienda sólo a programadores con experiencia y conoci- 
miento del microdrive. 
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.NEW 


Este comando es idéntico a la función NEW del BASIC, salvo que conserva 


la nueva versión MicroBASIC activa. 
s 


.NEW 


Elemento Descripción Restricciones 


Carácter ASCII. 


Comando tecleado letra a le- Siempre en mayúsculas. 
tra. 


PROGRAMA EJEMPLO: 


19 .NEW 


pvp en modo directo . NEW 


NEXT+ 


Este comando permite añadir más datos a un fichero previamente abierto sólo 
para lectura. 


NEXT+ Canal 


Elemento Descripción Restricciones 


Comando tecleado en modo Una sola tecla. 
extendido. 


Carácter ASCII. 

Número del canal asignado El canal debe estar asignado 

al fichero. previamente a un fichero que 
ya existía. 


El sistema operativo del microdrive sólo permite escribir en ficheros que se 
abren por primera vez, y posteriormente sólo se puede acceder a ellos para su 
lectura. Esto hace imposible el caso en que deseemos añadir nuevos datos a un 
fichero antiguo. 

Este nuevo comando transforma un fichero de sólo lectura en sólo escritura y, 
una vez ejecutado, cada dato que escribamos con la sentencia estándar PRINT ++ 
será añadido al final de los datos ya existentes. 

No hay que olvidarse de cerrar el fichero cuando se acabe de escribir todos los 
nuevos datos. 


PROGRAMA EJEMPLO: 


19 REM abrimos un fichero nuevo 

208 OPEMHS, "m"313*"4fichero"” 

30 REM rellenamos con datos 

49 FOR I=i TO 199:PRINTH8;I:NEXT 1 

59 CLOSEHS3:REM al acabar lo cerramos 

68 OFENH8, "m"31;3"fichero":REM vamos a ver 


79 MOVES TO $2 


99 REM ahora quiero atadir mas datos 
1106 NEXTH8: PRINTH85 "Nuevo dato" 
119 PRINTHS;3 "Otro nuevo dato" 
1126 CLOSEHS:REM al acabar lo cerramos 
¡139 REM Veamos el resultado 
1140 MOVE "m”";153"fichero” TO $2 
' 
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NOT 


Pulsando este comando, seguido de la tecla ENTER, se transforma en SA- 
VE*x“m”;1;“C”, evitando el tener que escribir todos los «caracteres. La letra C 
señala la posición del cursor, por lo que basta con introducir el nombre, pulsar de 
nuevo ENTER y la línea introducida o ejecutada, según vaya precedida por un 
número de línea o no. 


NOT (ENTER) 


Elemento Descripción Restricciones 


NOT Carácter ASCII. 
(ENTER) Tecla ENTER. Ninguna. 


PROGRAMA EJEMPLO: 


Pulsando las teclas 
1.0,NOT(ENTER),P,R,O, quedará... 
10 SAVE*“m”;1;“PRO” en nuestro programa. 


Del mismo modo se ejecutan los comandos: 


(ENTER) > LOAD+"m'";1;"C" 
(ENTER) > VERIFY*"m';1;"C" 
(ENTER) > MERGE+"m”;1;"C” 
(ENTER) > OPEN +8'"m”;1;"C” 
(ENTER) > MOVE'"m”;1;' 
(ENTER) > ERASE'm';1;"C” 
(ENTER) > FORMAT"m";1;"C” 


eteñVA | 


.OFF ERROR 


Este comando desactiva el salto incondicional activado previamente por el 
comando .ON ERROR. 


.OFF ERROR 


Carácter ASCII. 


Comando tecleado letra a le- Siempre en mayúsculas y no 
tra que desactiva el salto. importan los espacios en 
blanco. 


(Véase comando .ON ERROR). 


PROGRAMA EJEMPLO: 


.ON ERROR : GOTO 199 

FOR i=9 TO 255 

PLOT i,i 

PRINT AT 9,95 i 

NEXT i 

PRINT "Terminado normalmente” 


sTOP 

REN Subrutina ERROR 

. OFF ERROR 

PRINT AT 29,9;”"Ha ocurrido el error ”; 
PRINT ERN;" en la linea "jERL 

«ON ERROR : GOTO 199 

GOTO ERL+1 : REM El programa continua 


Cualquier error cometido en la subrutina ERROR, interrumpirá el programa 
dando el mensaje usual. 


Nota.—Los errores producidos por los comandos de la nueva ROM (dentro 
de la Interface 1) lamentablemente son tratados de forma diferente y no pueden 
activar saltos con la sentencia .ON ERROR. 
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.ON ERROR 


Este comando activa el salto incondicional del flujo del programa en el 
momento que ocurre un error. 


.ON ERROR : GOTO línea 


Elemento Descripción Restricciones 


Carácter ASCII. 


Comando tecleado letra a le- 
tra que activa el salto. 


Carácter ASCII. 


Comando tecleado con la te- 
cla. (5; 


Número o nombre de varia- 
ble. 


Siempre en mayúsculas y no 
importan los espacios en 
blanco. 


Debe existir. 

(0= <sector < =255) 
Correspondiente a una línea 
o anterior a ella. 


Cuando se ejecuta este comando no ocurre aparentemente nada hasta que 
durante la ejecución normal del programa ocurre algún tipo de error. 

En este momento se transfiere control automáticamente a la primera línea de 
programa existente igual o posterior al valor de línea. 

Además, se crean dos variables, utilizables normalmente desde BASIC: 


ERL : indica el número de la línea donde se produjo el error. 
ERN : indica el número del error acaecido (*). 


Esta interrupción del programa con errores queda activa hasta la ejecución del 
comando .OFF ERROR. 


PROGRAMA EJEMPLO: 


.OM ERROR : GOTO 199 
FOR i=9 TO 255 

PLOT i,i 

PRINT AT 9,95 i 

NEXT i 


PRINT "Terminado normalmente” 


sToOP 

PRINT AT 29,9;"Ha ocurrido el error ”; 
PRINT ERN;" en la linea "jERL 

GOTO ERL+1 : REM El programa continua 


READ+ 


Este comando lee una cadena de caracteres en acceso aleatorio desde un 
fichero almacenado en un microdrive. 


READ+ Canal , Sector ; Buffer$ 


Elemento Descripción Restricciones 


Sector 


, 


Buffer$ 


Comando tecleado en modo 
extendido. 


Carácter ASCII. 


Número del canal asignado 
al fichero. 


Carácter ASCII. 


Número del sector dentro del 
fichero al que se desea acce- 
der. 


Carácter ASCII. 


Nombre de la variable de ca- 
dena de caracteres donde se 
guardará el sector una vez 
leído. 


No debe escribirse letra a le- 
tra. 


El canal debe estar asignado 
previamente. 


0= <Sector < Número de sec- 
tores del fichero. 


Debe haber sido dimensiona- 
do previamente con la sen- 
tencia DIM. 

Dimensión máxima 512 by- 


tes. 


Los ficheros en el microdrive tienen sectores de longitud igual a 512 bytes, 
dentro de los cuales se almacenan números y cadenas en forma de caracteres 
Ascii, separados por el carácter “Carriage Return” (13), salvo que se hayan escrito 
de forma continuada utilizando para ello el carácter “;” al final de la sentencia 
PRINT+. 

El nuevo comando READ+F rellena la cadena Buffer$ con un número de 
caracteres igual a su dimensión fijada previamente en la sentencia DIM, y comen- 
zando siempre con el primer carácter del sector. 


PROGRAMA EJEMPLO: 


DIM b$(512) 
OPEN$S, "m"j153"fichero” 
INPUT "Numero de Sector deseado”,s 


READ$8,s;bs$ 
PRINT B+ 


92 


.REN 


Este comando renumera instantáneamente todo el programa, incluyendo los 


comandos con apuntadores a líneas. y 


.REN Linicial ,, Incremento 


Elemento Descripción Restricciones 


Carácter ASCII. 

REN Comando tecleado letra a le- Siempre en mayúsculas. 
tra. 

Linicial Número o variable que será 


línea inicial del programa re- 
numerado. 

s Carácter ASCII. 

Incremento  ¡ Número o variable del incre- 
mento entre líneas. 


PROGRAMA EJEMPLO: 


19 GOTO 11:RESTORE 17 
11 GOSUB 15:LLIST 11 
17 RUN 1:LIST 17:SAVE "Prog" LINE 19 


190 GOTO 1109:RESTORE 129 
110% GOSUB 129:LLIST 119 
129 RUN 1986:LIST 1289:SAVE "Prog” LINE 199 


Como se puede apreciar, la renumeración afecta no sólo a los identificadores 
de línea, sino también a los parámetros de los comandos GOTO, GOSUB, RUN, 
RESTORE, LIST, LLIST, LINE siempre que el parámetro esté especificado en 
forma numeral y no por una variable. 


RESTORE+ 


Este comando reescribe una cadena de caracteres en acceso aleatorio sobre un 
fichero almacenado en microdrive. 


RESTORE+ Canal , Sector ; Buffer$ 


Elemento Descripción Restricciones 


RESTORE Comando tecleado en modo Una sola tecla. 
extendido. 

+ Carácter ASCII. 

Canal Número del canal asignado Previamente asignado. 
al fichero. 


s Carácter ASCII. 


Sector Número del sector dentro del Debe existir. 
fichero sobre el que se desea 
escribir. 

A Carácter ASCII. 


Buffer$ Cadena de caracteres donde Dimensión máxima 512. 
se guardará el sector una vez 
leído. 


Cuando la dimensión de la cadena que se escribe es menor que 512 bytes, 
fisicamente se grabará un sector completo (512) rellenándolo con lo que existía en 
la memoria correspondiente al último sector leído. 


PROGRAMA EJEMPLO: 


DIM b$(512) 
?* OPENHS, "m"315"fichero” 
INPUT "Numero de Sector deseado”",s 
READH8,s;bs$ 
PRINT "Antes "5jbs$(5 tO 14) 


LET b$*(5 TO 14)="Modificado” 
RESTOREH8,5s;jbs$ 

READH8,=s;b+ 

PRINT "Despues "3jb+*(5 TO 14) 
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SCREENS 


Este comando efectúa una copia de la pantalla gráfica en la impresora a través 
del interfaz RS-232. 


« 


SCREENS 


Elemento Descripción Restricciones 


SCREENS Comando tecleado con la te- Los baudios deben estar for- 
cla K en modo E. mateados. 


PROGRAMA EJEMPLO: 


19 SCREENS 


o en modo directo SCREENS 


.TREF> 


Este comando transfiere una cadena de caracteres desde memoria a una 
variable, o viceversa. 


.TRF > Buffer$ , Dirección 
.TRF < Buffer$ , Dirección 


Elemento Descripción Restricciones 


Ó 
Ó 


Carácter ASCII. 


TRF Comando tecleado letra a le- Siempre en mayúsculas. 
tra. 


>0< Carácter ASCII. 


Buffer$ Nombre de la variable de ca- Debe haber sido dimensiona- 
dena de caracteres. do previamente con la sen- 
tencia DIM. 
s Carácter ASCII. 
Dirección Número o nombre de varia- 
ble. 
0O<Dirección <65535 


El número de bytes que se transfieren es igual a la dimensión de la cadena de 
caracteres que previamente debe existir. Para transferir desde la memoria hacia la 
cadena se utiliza el símbolo “<>” y se utiliza “>>” para transferir bytes en dirección 
opuesta. 

Una de las buenas cualidades de este comando es que en el rango de direccio- 
nes O hasta 16K accede a la ROM de la Interface 1, y abre así nuevos caminos a 
la investigación... 


PROGRAMA EJEMPLO: 
19 DIM a$(6144):DIM b$(6144) 


PLOT 69,698: DRAW39,39,1999:PRINT"Pantal" 
39 .TRF<a$, 163384: CLS 


PRINT"Panta2"!:.TRF<b*, 16384 
+. TRF>a$,16384:.TRF>b$%,16384:G0TO 69 
REM Esta velocidad en Basic 2? 


O 
O 


l 
1 
l 
l 
PLOT 159,698: DRAW 35,35,1999 . 
1 
' 
| 
| 
| 
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La extensión del Spectrum con el Interface 1 
y el Microdrive supone un cambio drástico en 
la utilización de este microordenador. 


De ser un micro para videojuegos y aprendizaje 
pasa a ser un equipo con el que se pueden , 
desarrollar aplicaciones serias, dentro del ámbito 
personal. 


PROGRAMACION DEL INTERFACE 1 Y MICRODRIVE 
te da toda la información que necesitas para 
aprovechar al máximo las prestaciones de tu máquina: 


— Estructura de comunicaciones en el Spectrum. 
— Paginación ROM1 + ROM2, subrutinas importantes 
de la ROM2. 
— Formato de la cinta y descripción del canal 
físico del Microdrive. 
— Ampliación MICROBASIC. : 


El programa MICROBASIC te enseñará cómo 
ampliar las posibilidades del BASIC con la inclusión 
de nuevos comandos diseñados por ti: la variable A 
del sistema «VECTOR» ($5CB7=23735) permite ampliar ] 
por «enganche» el intérprete BASIC del Spectrum. 


Con tu imaginación, tu Spectrum 
y PROGRAMACION DEL INTERFACE 1 Y MICRODRIVE 
puedes definir tu propio lenguaje y ampliar 
radicalmente las aplicaciones de tu microordenador. 


